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A. OVERVIEW 


Robot Control Language(tm) with Savvy(R) -- RCL(tm) for short -- 
provides a simple, straightforward method of programming the 
RBSX (tm) to perform many functions without using the terse Tiny 
BASIC code that ultimately controls the robot's actions. 


RCL users instruct the RB5X using "robot tasks" like MOVE 
FORWARD, GO CLOCKWISE, TURN THE WRIST, TURN ON THE HORN, etc. 
RCL then automatically cross-compiles the robot task, line by 
line, into Tiny BASIC code and then downloads the code into the 
robot's on-board memory by means of an RS-232 serial 
communications interface. 


In addition to commands that initiate and control RB5X's action, 
RCL also includes facilities for error trapping and compilation 
of loops. Each element of RCL is as meaningful to Savvy as any 
Savvy primary language command such as ADD, EDIT, or SAVE. 
Furthermore, the system is flexible, to allow the addition of 
new RCL commands, and the editing and modification of all RCL 
elements and associated Savvy tasks. Since RCL is Savvy-based, 
all robot vocabulary can be extended with synonyms for existing 
commands. 


This document presumes the reader has gone through the RCL 
Tutorial, has reviewed the Savvy Personal Language Reference 
Folio, has fundamental Savvy task development skills, and 
possesses at least a superficial knowledge of NSC Tiny BASIC. 
(If you need more information about how to use Tiny BASIC, 
consult the RB5X Reference Manual.) 
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B. STRUCTURE 


Accompanying this document is a complete directory of all RCL 
vocabulary. The vocabulary has four main elements: action 
commands, programming commands, parameter-passing functions, and 
error-checking and compiler routines. 


ACTION COMMANDS 
These commands instruct the robot to perform an activity. 


Examples: 
FOLLOW TAPE 
GO CLOCKWISE 
MOVE BACKWARD 


PROGRAMMING COMMANDS 


These commands are used for initialization, error checking, 
looping, and other programming conventions. 


Examples: 
LOAD 
REPORT ASSIGN ERROR 
REPEAT THIS LOOP 


PARAMETER-PASSING FUNCTIONS 
These functions pass specific parameters to the robot, sometimes 
in the form of distances to move, degrees to rotate, phrases to 
speak, etc. Other parameter-passing functions are used strictly 
as programming conventions, such as counts for a loop. 
Examples: 
Parameter-passing functions as robot 
instructions: 


MOVE DISTANCE BACKWARD for this many feet: «1» 
MOVE TIMED FORWARD for this many seconds: «1» 


Parameter-passing functions for programming: 
DEFINE A VARIABLE called «1» 
REPEAT THIS COUNTED LOOP for the counter <l> 
ERROR-CHECKING AND COMPILER ROUTINES 
All RCL vocabulary elements that are preceded by a 'Z' are for 


error checking and compilation. 
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Examples: 
Z ERROR CHECK MATH FUNCTION 

Z LOOK FOR MATCHING STATEMENT 
Z LOAD SONAR 


There are several elements in the directory preceded by an 'X'. 
These are sample RCL robot tasks (i.e., X Simple Simon). 


Each element of the RCL vocabulary -- action commands, 
programming commands, parameter-passing functions, and the error- 
checking and compiler routines -- has a corresponding Savvy task 


or function that actually executes the task. These tasks and 
functions may also call other tasks and functions, and may in 
turn be called by other tasks. Their operation is completely 
transparent to the end-user. (Appendix 2 contains the complete 
text of all RCL tasks and functions.) 


VOCABULARY ELEMENTS IN ROBOT TASKS 


A user composing a robot task selects action commands,. 
programming commands, and parameter-passing functions to form a 
robot task, which is also an actual Savvy task. The task can be 
edited with the Savvy editor and is saved on disk just like any 
other Savvy task. The task name becomes part of RCL. The X FIND 
CHARGER ROUTINE listed as Sample l is an example of a simple 
task. It has looping, parameter passing, and other programming 
conventions. 


Sample 1 
CHARGER FINDER (a Task) 


X 
l Does WAIT this many seconds 20 

2 and PREPARE THE ROBOT 

3 and INITIALIZE- MEMORY 

4 and BEGIN A LOOP 

5 and PREPARE THE ROBOT 

6 and CLEAR ALL ITEMS 

7 and BEGIN A LOOP 

8 and MOVE FORWARD 

9 and EXIT IF ANY BUMPER TOUCHED 

10 and EXIT IF THE TAPE IS SENSED 

ll and REPEAT THIS LOOP 

12 and TEST IF the variable "R" is (=,<,>,<>) "=" to 0 
13 and EXIT THIS LOOP 

14 and END HERE 

15 and MOVE WITH BETA INTEILI3:'CE 
16 and REPEAT THIS LOOP 

17 and FOLLOW TAPE 

18 and MAINTAIN CHARGE 

19 and END (Task is 7$ full.) 


— 


í 
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From this set of instructions, RCL compiles the Tiny BASIC text 
necessary to accomplish the specified activity or function. The 
error-checking and compiler routines are used as necessary in the 
actual Savvy tasks that correspond to RCL elements. 


RCL AND ITS RELATIONSHIP TO TINY BASIC 


Programming the RB5X in RCL first requires communication between 
two different hardware configurations, the 6502-based Apple II 
and the INS8073-based robot. The diagram in Figure 1 illustrates 
the hierarchy of languages that perform this communication and 
their relationship.  (FORTH is the machine language that 
interfaces Savvy with the 6502.) 


Tiny BASIC 


” FORTH 


6502 
Apple II 


INS8073 


RBSX 
Robot 


Figure 1l. 
Hardware and Language Relationships 
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As illustrated in Figure 1, Tiny BASIC communicates with the 
robot hardware. Because of its machine code-like nature, many 
Tiny BASIC instructions are necessary to implement an RCL 
command. Figure 2 illustrates the language structures and 
relationships. 


RCL robot task 


RCL language} 
element 


RCL language | 
element Savvy 


task 


RCL language 
element 

| : | 

| : | 


robot 
action 


eu 


robot 
action 


LL J] 


Figure 2. 
Language Structures and Relationships 
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COMPILING RCL INTO TINY BASIC 


The Tiny BASIC program text is stored in a Savvy folder named 
SOURCE. It is indexed (keyed) by the item STATEMENT NUMBER and 
the two items BASIC TEXT and MEANING. BASIC TEXT is the Tiny 
BASIC text, a combination of symbols and numbers, such as 
6878032498, that specify action, define addresses, turn bits on 
and off, etc. MEANING is the documentary description that 
accompanies the code. 


The folder structure for stored Tiny BASIC text in RCL is: 
SOURCE (a folder) 
l Id STATEMENT NUMBER 
2 Item BASIC TEXT 
3 Item MEANING 
A Savvy task and function perform the compilation according to 
the following process before the data is actually stored in the 
SOURCE folder. 


1. Increment the current line number to form the STATEMENT 
NUMBER for this statement 


2. Copy the appropriate piece of text to the BASIC TEXT 
3. Copy any textual description to MEANING 
4. Save this page of data in the SOURCE folder 
The following tasks compile RCL according to the preceding 
algorithm: 
Sample 2 
7 COMPILE the BASIC statement «1» which means «2» (a Function) 
1 Does Z INCREMENT STATEMENT NUMBER 
2 and COPY from «1» to BASIC TEXT 
3 and COPY from «2» to MEANING 
4 and SAVE new page in SOURCE 
5 and END (Task is 2% full.) 
Z INCREMENT STATEMENT NUMBER (a Task) 
l Does ADD the STATEMENT NUMEER and STATEMENT NUMBER INCREMENT 


VALUE 


2 and COPY from SUM to STATEMENT NUMBER 
3 and END (Task is 1$ full.) 
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C. IMPLEMENTATION 


RCL is flexible and extensive enough to allow users to program 
the RB5X to perform countless activities. The best way to 
understand how the RB5X works and how robot tasks are composed 
is to actually key one in. By entering the following robot task 
(Sample 3), you learn how to hook up the robot, how to prepare 
its memory, how to download the robot task from your Apple to 
your RB5X, and other aspects of "training" the RB5X. 


INSTRUCTIONS FOR KEYING IN THE SAMPLE TASK 

Composing a robot task is just like defining a regular Savvy 
task. (Again, these instructions assume you have a basic 
familiarity with Savvy and understand the way Savvy prompts for 
input.) In the following dialogue, the user's response is in 


upper case and Savvy's prompts are in lower case, just as in 
actual use if you have an 80-column card or an Apple IIe. 


1. Begin by defining a task called TEST PROGRAM. 
DEFINE a task called TEST PROGRAM 
2. Type the text, beginning with line 1l, just as it is 
listed in Sample 3 on page C-2. Remember that all lower 
case words in the script are Savvy prompts that RCL 
automatically inserts after you press the RETURN key. 


3. Check the task for errors and correct with the Savvy 
editor. 


4. If the robot task appears satisfactory, instruct Savvy 
to BUILD the source task. Savvy prompts for the task 
name. ‹ 

BUILD a program from the robot task "TEST PROGRAM" 


First the system displays the following message: 


Would you like your robot task checked for 
errors? (Y/N). 


After your response, the system displays the message: 
Now building robot task TEST PROGRAM 
...One moment, please. 

TO see the Tiny BASIC code that the BUILD command 


creates, type LIST THE PROGRAM and you see the Tiny 
BASIC with comments. 
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5. 


6. 


7. 


Plug the Apple into the RB5X via the RS-232 serial 
interface and switch the robot on. Type: 


LOAD 
The drive spins and RCL displays the message: 

** Now loading...One moment please ** 
The system then displays the following message: 

Now loading your robot task...### 
After RCL downloads the completed robot task, the RB5X 
executes the TEST PROGRAM. If the drives do not spin and 
the robot does not respond, the baud rate may be 
incorrect (it must be set at the same rate on both robot 
and serial interface), the serial card may not be 
connected properly, or the robot may be inadequately 
charged. 
To run again, type: 


RUN <RET> 


Sample 3 


TEST PROGRAM (a Task) 


Does PREPARE THE ROBOT 
and TURN ON THE FLASHING LIGHTS 
and MOVE DISTANCE FORWARD for this many feet 2 
and SPIN LEFT 90 DEGREES 
and SPIN RIGHT 90 DEGREES 
and MOVE TIMED BACKWARD for this many seconds 5 
and PIVOT ON LEFT CLOCKWISE 
and WAIT this many seconds 4 
and PIVOT ON LEFT COUNTERCLOCKWISE 
and WAIT this many seconds 4 
and PIVOT ON RIGHT CLOCKWISE 
and WAIT this many seconds 4 
and PIVOT ON RIGHT COUNTERCLOCKWISE 
and WAIT this many seconds 4 
and STOP ALL MOTION 
and HONK the horn for this many seconds 2 
and END (Task is 8% full.) 


Remember that you type Q<RET> to complete the rctot task зла 
then RCL replies with the END line. 
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WRITING NEW ROBOT TASKS 


As mentioned in the preceding instructions, creating a new robot 
task is just like defining a new Savvy task. However, instead of 
using Savvy commands and primaries directly, RCL is used to 
specify instructions to the robot. Each robot task must begin 
with the directive: 


PREPARE THE ROBOT 


This initializes the RB5X hardware and prepares it to accept the 
robot task that has been compiled into Tiny BASIC. After the 
PREPARE THE ROBOT command has been entered, other RCL language 
elements can then be combined to define a robot task. 


Simple robot tasks such as the TEST PROGRAM illustrated in Sample 
3 do not include loops or conditional tests, nor do they require 
the use of the special compiler routines. Other, more 
complicated robot tasks use these conventions. When composing 
robot tasks with looping conventions, remember that loops may be 
nested no more than eight deep in Tiny BASIC. 


Sample 4 is a robot task that is more complex than TEST PROGRAM 


and illustrates looping conventions. Try it out to begin to get 
a feel for the way the language works. 
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Sample 4 


TEST LOOPS (a Task) 


1 Does CALL this line "START OVER" 

2 and PREPARE THE ROBOT 

3 and BEGIN A LOOP 

4 and DEFINE A VARIABLE called "L" 

5 and EXIT IF ANY BUMPER TOUCHED 

6 and REPEAT THIS LOOP 

7 and BEGIN A COUNTED LOOP called "L" beginning 

at l ending at 5 ! 

8 and TURN ON THE FLASHING LIGHTS 

9 and WAIT this many seconds 1 

10 and TURN OFF THE FLASHING LIGHTS 

11 and wait this many seconds 1 

12 and REPEAT THIS COUNTED LOOP for the counter "L" 
13 and BEGIN A LOOP 

14 and MOVE FORWARD 

15 and EXIT IF SONAR distance value is less than 95 
16 and REPEAT THIS LOOP 

17 and MOVE BACKWARD 

18 and SET the variable "L" equal to 0 

19 and BEGIN A LOOP 

20 and CALCULATE variable "L" = "L" (+,-,*,/) "+" 1 
21 and HONK the horn for this many seconds 1 

22 and WAIT this many seconds 1 
23 and TEST IF the variable "L" is (=,<,>,<>) "=" compared 

to 4 

24 and REPEAT THIS LOOP 
25 and STOP ALL MOTION 
26 and JUMP to the line called "START OVER" 
27 and END HERE 
28 and END (Task is 19% full.) 


After new tasks are written, you may go through the BUILD 
procedure described in the section on "Instructions for Keying in 
the Sample Task." However, in certain cases you may want to skip 
the two-part^BUILD and LOAD procedure and just type: 


BUILD AND LOAD 


This RCL primary task performs the BUILD and the LOAD operations 
consecutively after the robot task title is entered, without 
querying again. The BUILD AND LOAD routine does not, however, 
have the same error-checking faculties as the separate BUILD and 
LOAD tasks, and we do not advise using it on new tasks. 


C-4 Copyright 1984 : A11 rights reserved. 


"vw oca Rot 


EXTENDING RCL AND DEFINING NEW ACTIONS 


Extending RCL and defining new actions, either to expand the 
language or to accommodate new hardware, requires a knowledge of 
Tiny BASIC. The proper Tiny BASIC code must be inserted in the 
source folder to provide communication with the hardware. 


Implementing new RCL primary tasks begins with design at the Tiny 
BASIC level. When the fundamental instructions are coded, they 
may be incorporated into Savvy tasks. Certain existing RCL 
elements make it easy to write one-liners. These are Z INCREMENT 
STATEMENT NUMBER and COMPILE the BASIC statement «1» which means 
«2». (The text of these routines is listed in the section 
"Compiling RCL into Tiny BASIC.") 


For example, a task such as STOP ALL MOTION is done like this: 
STOP ALL MOTION (a task) 


1 Does COMPILE the BASIC statement "63780220" which means 
"STOP ALL MOTION" 


Some new primary tasks require parameterized subroutines. For 
example, if you were implementing a siren, you would write a 
routine similar to TURN ON THE HORN listed in Sample 5. 


The first line compiles the Tiny BASIC code; the second is a 
subroutine to turn on a bit. It is necessary to ensure that the 
target subroutine is there, so a task is Z INSURE PORT 7801 
SUBROUTINE IS. The text of this task is listed as Sample 6. 


Sample 5 
TURN ON THE HORN (a Task) 


l Does Z COMPILE the BASIC statement "X=#80" which means 
"TURN ON HORN" 
2 and Z COMPILE the BASIC statement "GOSUB 3100" which 
means "GO TURN ON A BIT" 
3 апа Z INSURE PORT 7801 SUBROUTINE IS 
4 and END (Task is 6$ full.) 
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Sample 6 


2 INSURE PORT 7801 SUBROUTINE IS (a Task) 


1 Does WHEN folder SOURCE DOES NOT CONTAIN 3,100 then 
2 Do COPY from STATEMENT NUMBER TO HERE 
3 and Z INCLUDE at 3,100 the statement “U=@#7801" 
which means "TURN ON A BIT" 
and Z INCLUDE at 3,105 the statement "U=U OR X" 
which means "" 
and Z INCLUDE at 3,110 the statement "@#7801=U" 
which means "" 
6 and Z INCLUDE at 3,115 the statement "RETURN" 
which means "" 
7 and Z INCLUDE at 3,120 the statement "U=@#7801" 
which means "TURN OFF A BIT" 
8 апа Z INCLUDE at 3,125 the statement "U=U AND X" 


which means "" 

9 and Z INCLUDE at 3,130 the statement "@#7801=U" 
which means "" 

10 and Z INCLUDE at 3,135 the statement "RETURN" 
which means "" 

11 and COPY from HERE to STATEMENT NUMBER 

12 and END of test 

13 and END (Task is 23% full.) 


Since RCL is Savvy-based, the existing commands can be "extended 
with synonyms" using the Savvy ASSOCIATE command. These might be 
abbreviations of certain frequently used commands to speed up 
data entry, such as TOH for TURN ON THE HORN. And, because of 
Savvy's Adaptive Pattern Recognition Processing (APRP), the more 
synonyms added to RCL, the more Savvy is able to "help out" in 
cases of misspelling or improperly worded phrases. 


MODIFYING EXISTING RCL TASKS 


The Savvy tasks that actually implement the RCL commands may be 
modified to suit your needs. 


For example: If you find it tiresome to begin each robot task 
with PREPARE THE ROBOT, you can insert the Tiny BASIC 
initialization code (84378032498) in the LOAD routine so that RCL 
automatically does this initialization. If you don't like using 
periods as delimiters in the phonemes, you can change them to 
slashes (/) by instructing Savvy to COPY from "/" to DELIMITER. 
You can change display messages with Savvy's editor or modify the 
RUN task to allow you to communicate "interactively" with the 
robot. (Add wait states so you must type RUN at the keyboard 
after each command as a useful debugging facility.) 


Of course, before you begin modifiying the Savvy tasks, be sure 


you have a recent backup of your disk so you can restore the task 
to its original state if there are any problems. 
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D. DEBUGGING AND ERROR TRAPPING 


Debugging and error trapping in new robot tasks and primary tasks 
takes place at three levels: 


Robot task level (RCL level) 
Savvy task level 
Tiny BASIC level 


At the highest level, the robot task level, there are error- 
trapping routines in Savvy itself that check new scripts for 
language errors, matching statement errors, errors of 
correspondence between arguments and functions, etc. These 
routines do not check for logic errors. When RCL detects an 
error, it saves the error and displays the number of the 


offending line. 


Some errors that are returned may not interfere with the purpose 
of the script. In fact, some errors returned may be things you 
intended to do. Endless loops are usually considered a bug in 
most programming situations; however, endless loops to carry on a 
specified motion may be something you intend the RB5X to do. 


When a Savvy script is modified and then does not function as 
intended, check all other routines that are called by and from 
the script to check for errors. Because of the reentrant nature 
of these tasks, bugs may not necessarily show up in the modified 
task. If an unmodified task that previously ran without problems 
begins to behave in a peculiar fashion, check to see if the tasks 
it calls or is called by have been recently modified. 


Debugging new tasks that extend RCL must begin at the Tiny BASIC 
level. Be sure the Tiny BASIC code works before introducing it 
into the task that compiles it. If it works at that level, test 
at the Savvy task level, and finally at the robot task level. 
Debugging Tiny BASIC is not an activity for the casual or 
inexperienced programmer. 
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E. MISCELLANEOUS PROGRAMMER'S NOTES 


Listed below are various notes concerning language use and 
conventions and other programming information. 


ds JUMP to the line called «1» 
CALL this line «1» 


These may be nested in any loop and the label name must 
be in quotes. 


Z4 MOVE THE ARM FROM THE SHOULDER (UP, DOWN, IN, OUT): «1» 
for this many degrees: «2» 


MOVE THE FOREARM (IN,OUT): «1» for this many degrees: 
«2» 


MOVE THE HAND (OPEN, CLOSE): «1» for this (1-100) %:<2> 


TURN THE WRIST (LEFT, RIGHT): «1» for this many 
degrees:«1» 


The first argument in all of these functions does not 
have to be enclosed in quotation marks. If the second 
argument is incorrect, a warning message appears on the 
screen and the BUILD stops. 


as PREPARE THE VOICE -- Initializes the voice 


4. LOAD the phrase called «1» with phonemes «2» 


For example: 
LOAD THE PHRASE called "HELLO" with the 
phonemes "H.El....STOP." 


Each phoneme must have a period after it, including the 
last phoneme in the sequence. There can be no spaces in 
between. If any periods are omitted, the machine goes 
into an endless loop. The last phoneme must always be 
STOP. 


The "LOAD THE PHRASE" action should be near the top of 
your robot task, but after the "PREPARE THE VOICE" 
command. You should not include the "LOAD THE PHRASE" 
task with any of your loops since it only needs to be 
done once. Use the "SPEAK the phrase called «1»" in the 
body of your task when you want the robot to speak the 
phrase you previously loaded. 
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Š. In the following tasks: 
DEFINE À VARIABLE 
BEGIN A COUNTED LOOP 
REPEAT THIS COUNTED LOOP.. 


CALCULATE 
REPEAT A LIMITED LOOP 


TEST IE 


the variable used must be a legal Tiny BASIC variable 
(A-2). 


6. CALCULATE 


"CALCULATE" allows the programmer to alter a Tiny BASIC 
variable by operating upon it with one of the four 
standard arithmetic functions (add, subtract, multipy, 
divide) along with either another variable or a constant 
value. A common use of this task is to increment a 
variable for use in a loop. For example: 


CALCULATE variable "A" = "A" "+" ] 


In this case "A" is the variable to be operated on. The 
variable is in quotation marks because Savvy must treat 
the Tiny BASIC variable as a literal. The numeral, on 
the other hand, does not require quotes since it is a 
constant in both Savvy and in Tiny BASIC. Likewise, the 
operand must be placed in quotes since Savvy does not 
recognize it as a constant. 


7. TEST IF 


"TEST IF" gives the programmer the option of being able 
to test a variable against another variable or a constant 
value while in a loop. The result of such a test will be 
either true or false. If the result is true, then the 
loop continues; if the result is false, the task Lranches 
out of the loop statement ixmediately following the end 
of the loop. For example: 


BEGIN A LOOP 
CALCULATE variable "A" = "A" (+,-,*,/) "+" 1 


TEST IF the^variable "A"^i$ (= < > POP обл. геа 
to 4 

REPEAT THIS LOOP 

END HERE 
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In this procedure, the loop will continue until the 
variable A is equal to four; when this occurs, the task 
terminates. 


When using variables in your tasks, such as for the TEST 
IF task, the CALCULATE task, or the COUNTED LOOPS, be 
careful about using the following variables; they are 
already being used within some of the RCL primary tasks: 


A, D, I, J, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z 


There may or may not be interaction between your choice 
of variable and the use of that variable within one of 
the tasks, so it is best to use other variable names 
unless you check the tasks being used, or look at the 
LIST THE PROGRAM. А 
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F. APPENDICES 
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APPENDIX 1 


Provided RCL Tasks 


. "ч 


PICK A RANDOM DIRECTION (a Task) 


1 Does Z COMFILE the BASIC statement "GOSUB 3040" which means "PICK RANDOM DI 


CTION" 
2 and Z INSURE RANDOM TURN SUBROUTINE 
3 and END (Task is 4% full.) 


PIVOT ON LEFT CLOCKWISE (a Task) 


1 Does Z COMFILE the BASIC statement "@#7802=#04" which means “RIGHT REVERSE” 


2 and END (Task is 3% full.) 


PIVOT ON LEFT COUNTERCLOCKWISE (a Task) 


1 Does Z COMPILE the BASIC statement "@#7802=#08" which means "RIGHT FORWAR! ' 


2 and END (Task is 3% #011.) 


PIVOT ON RIGHT CLOCKWISE (a Task) 


1 Does Z COMFILE the BASIC statement "47802-94901" which means "LEFT FORWARD" 


2 and END (Task is 3% full.) 


PIVOT ON RIGHT COUNTERCLOCKWISE (a Task) 


і Does Z COMFILE the BASIC statement "©#7802=#02" which means "LEFT REVERSE' 


2 and END (Task is 3X full.) 


PREFARE THE ROBOT (a Task) 


і Does Z COMPILE the BASIC statement "G47802-498" which means “INITIALIZE 1/0 


2 and END (Task is 3% full.) 


FREFARE THE VOICE (a Task) 


1 Does Z COMPILE the BASIC statement "@#780B=#A7:S=TOF" which means "РКЕРАКГ 


E VOICE" 
2 and COFY from "YES" to VOICE NEEDED 


S and END (Task is SX full.) 
REMARK that: <1> (a Function) 
1 Does FASTE the "REM " in front of <1> 


2 and Z COMPILE the BASIC statement FRONT which means "REMARK" 
3 and END (Task is 2* full.) 


Li 


REPEAT THE LIMITED LOOF unless 41» is (<.>,=,<>) «X2» to «3» (a Function) 


Does 
and 
and 
and 
and 
and 
and 
and 


O ` O (di PUN 


z ERROR CHECK IF/UNTIL STATEMENT 

PASTE the "UNTIL " in front of «1» 

FASTE the FRONT in front of «22» 

FASTE the FRONT in front of «3» 

Z COMFILE the BASIC statement FRONT which means "CHECK EXIT CONDITION" 
COPY from "UNTIL" to STRUCTURE TYFE 

SAVE new page in STRUCTURES 

END (Task is 7% full.) 


REPEAT THIS COUNTED LOOF for the counter <1> (a Function) 


Does 
and 
Do 
and 
Do 
and 
and 
and 
and 


3:00 NO OC bh Ote 


Z DO CHECK if item <1> is in folder "VARIABLES" 
IF the RESULT IS "FAIL" then 
Z SAVE FOLDER ERROR 
OTHERWISE 
GET the page indexed by <1> in folder VARIABLES 
COPY from VAR NAME to <1> 
END of test 
PASTE the "NEXT " in front of «1» 
17 COMPILE the BASIC statement FRONT which means “REPEAT THE COUNTED LOC 


(FOR/NEXT) " 


10 and 
11 and 
12 and 


COPY from "NEXT" to STRUCTURE TYFE 
SAVE new page in STRUCTURES 
END (Task is 11% full.) 


REFEAT THIS LOOP (a Task) 


Does 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 


> O 0 O N 0 (( bp G Ñ = 


صم صم 


COFY from STATEMENT NUMBER to HERE 

z GET FREVIOUS BEGIN 

DELETE the page indexed by STATEMENT NUMBER from folder LOOFS 
PASTE the "GOTO " in front of STATEMENT NUMBER 

COFY from HERE to STATEMENT NUMBER 

Z COMFILE the BASIC statement FRONT which means "REFEAT THIS LOOF" 
Z COMFILE the BASIC statement "REM EXIT TO HERE" which means "" 
z FATCH UP EXIT STATEMENTS 

COPY from "REFEAT" to STRUCTURE TYFE 

SAVE new page in STRUCTURES 

END (Task is 10% full.) 


REPORT ASSIGN ERROR (a Task) 


Does 
and 
Do 


Ct) => 


and 
and 

Do 
and 
and 


ONC UD 


CARRIAGE return 
IF the ASSIGNMENT IS "BUILD" then 
DISPLAY the "I'm sorry, I could not find the requested robot s-ript. 


HALT and return to Ready 
OTHERWISE 
DISFLAY the “REPORT ASSIGN ERROR!" 
END of test 
END (Task is 10% full.) 


“© $^ (9.5 


REPORT DELETE ERROR (a Task) 


1 Does 
Pa Do 
3 and 
a Do 
S and 
& and 


IF the ASSIGNMENT 15 "BUILD" then 
DISFLAY the "" 


OTHERWISE 
DISPLAY the "REFORT DELETE ERROR!" 


END of test 
END (Task is 4% full.) 


REFORT GET ERROR (Undefined) (a Task) 


Undefined task! (Task is 1% full.) 


REFORT LOAD ERROR (a Task) 


Does 
and 
and 
and 


PUNY 


CARRIAGE return 
DISFLAY the “Sorry, there is not a program to load." 
HALT and return to Ready 
END (Task is 4% full.) 


REFORT MATH ERROR (a Task) 


1 Does 
2 and 


DISPLAY the "" 
END (Task is 1% full.) 


REPORT REPLACE ERROR (a Task) 


1 Does 


END (Task is 1% full.) 


REFORT SAVE ERROR (a Task) 


1 Does 
2 and 
5 and 


CARRIAGE return 
DISFLAY the "КЕРОКТ SAVE ERROR!" 


END (Task is 2* full.) 


RUN (a Task) 


1 Does 
2 and 
S and 
4 and 
SET the 
1 Does 
2 and 
р. 3 ро 
4 and 
5 Do 
6 and 
7 and 
8 and 
9 and 
10 Do 
11 and 
12 Do 
15 and 
14 Do 
S and 


16 and 


PRINT the "" 

OUTFUT #rom "RUN" using format DEFAULT 
CARRIAGE return 

END (Task is 1% full.) 


variable <1> equal to <2> (a Function) 


Z DO CHECK if item <1> is in folder "VARIASLES" 
IF the RESULT IS "FAIL" then 
Z SAVE FOLDER ERROR 
OTHERWISE 
GET the page indexed by <1> in folder VARIABLES 
COPY from VAR NAME to «41» 
END of test 
Z DO NUMBER TEST on <2> 
IF the RESULT IS "FAIL" then 
Z DO CHECK if item «Z2? is in folder “VANICSLES" 
IF the RESULT IS "FAIL" then 
Z SAVE NUMEER OR FOLDER ERROR 
OTHERWISE 
GET the page indexed by <2> in fclder VARIABLES 
COPY from VAR NAME to <2> 
END of test 


p 


SET the 
17 and 
18 and 
19 and 


2 and 
21 and 


variable <1> equal to «2» (a Function) 


END of test 
PASTE the «1? in front of 
PASTE the FRONT in front of <2> 
z COMPILE the BASIC statement FRONT which means "INITIALIZE" 


END. (Task is 15% full.) 


SHOW ERRORS (a Task) 


1 Does 
2 and 
3 and 
4 and 
s and 
e and 
7 and 
8 and 
9 Do 
10 and 
11 Do 
2 and 
15 and 
14 Do 
15 and 
16 and 
17 and 
18 and 
19 and 
ZO and 
21 and 
2 and 
23 and 
24 and 
25 and 
26 and 


CLEAR the page 
DUTFUT from "LINE NUMBER" using format DEFAULT 
OUTPUT from SPACES using format 23 
OUTFUT from "ERROR MESSAGE" using format DEFAULT 
CARRIAGE return 
CARRIAGE return 
BEGIN at page indexed by FIRST in folder ERRORS 
START a loop 
GET the page indexed by NEXT in folder ERRORS 
IF the PAGE IS EMFTY then 
LEAVE this loop 
END of test 
IF the ERROR NUMBER IS 200 then 
CARRIAGE return a 
OUTPUT from SFACES using format 25 
OUTFUT from "--- Structure Errors ---" using format DEFAULT 
CARRIAGE return 
CARRIAGE return 
END of test 
OUTPUT from LINE NUMBER using format 7 
OUTPUT from SFACES using format 8 
OUTPUT from ERROR MESSAGE using format DEFAULT 
CARRIAGE return 
REPEAT this loop 
CARRIAGE return 
END (Task is 15% full.) 


SHOW THE PHONEME DICTIONARY (a Task) 


1 Does 
2 and 
S and 
4 and 
= and 
6 and 
7 asd 
8 end 
9 Do 
10 and 
11 Do 
12 and 
15 and 
14 eid 
15 and 
16 and 
17 and 


18 and 


CLEAR the page 
OUTFUT from “Fhoneme Symbol" using format DEFAULT 
OUTPUT from SPACES using format 10 
OUTPUT from "Phoneme Code" using format DEFAULT 
CARRIAGE return 
CARRIAGE return 
BEGIN at page indexed by FIRST in folder PHONEMES 
START a loop 
GET the page indexed by NEXT in folder FHONEMES 
IF the PAGE IS EMFTY then 
LEAVE this loop 
END of test 
OUTPUT from SFACES using format Š 
OUTFUT from РНОМЕМЕ ID usir.g 4. emat 24 
OUTPUT from FHONEME CODE using format a 
CARRIAGE return 
REPEAT this loop 
END (Task is 10% full.) 


Bree. 


SPEAK the phrase called: <1> (a Function) 

Does BEGIN at page indexed by FIRST in folder SFEECH LOAD DATA 
and GET the page indexed by <1> in folder SPEECH LOAD DATA 
and COPY from SFEECH ADDRESS to HERE 

and PASTE the "S-" in front of HERE 

and PASTE the FRONT in front of ":LINK #2F50" 

and PASTE the FRONT in front of ":REM SFEAK" 

and PASTE the FRONT in front of <1> 

and Z COMPILE the BASIC statement FRONT which means "SPEAK A FHRASE" 


and END (Task is 9X full.) 


O O N O Ul PUNY 


SFIN AROUND CLOCKWISE this many times: <1> (a Function) 


Does IF the <1> IS GREATER THAN О then 


1 
= Do MULTIFLY the <1> by 5.53 
Z and SFLIT the number PRODUCT 
4 and TAKE this many characters 4 from FRACTION 
= and PASTE the INTEGER in front of FRONT 
6 and GO CLOCKWISE 
.7 and WAIT this many seconds FKONT 
B and STOP ALL MOTION 
9 and END of test 


10 and END (Task is 5% full.) 
SPIN AROUND COUNTERCLOCKWISE this many times: <1> (a Function) 


Does IF the «1» IS GREATER THAN O then 


1 

2 Do MULTIPLY the <1> by 5.53 

š and SFLIT the number PRODUCT . 

4 and TAKE this many characters 4 from FRACTION 
S and FASTE the INTEGER in front of FRONT 

6 and GO COUNTERCLOCKWISE 

7 and WAIT this many seconds FRONT 

8 and STOP ALL MOTION 

9 and END of test 


10 and END (Task is 5% full.) 


SFIN CLOCKWISE this many degrees: <1> (a Function) 


1 Does IF the <1> IS GREATER THAN O then 

2 Do MULTIFLY the <1> by .01472 

5 and SFLIT the number PRODUCT 

4 and TAKE this many characters 4 from FRACTION 
S and PASTE the INTEGER in front of FRONT 

6 and GO CLOCKWISE 

7 and WAIT this many seconds FRONT 

8 and STOF ALL MOTION 

9 and END of test 

10 and END (Task is SX full.) 


SEIN COUNTERCLOCKWISE this many degrees: <1> (a Function) 


Does IF the <1> IS GREATER THAN O then 
Do MULTIFLY the <1> by „©1472 
ага SFLIT the number PRODUCT 
TAKE this many characters 4 from FRACTION 
PASTE the INTEGER in front of FRONT 
and GO COUNTERCLOCKWISE 
and WAIT this many seconds FRONT 
and STOF ALL MOTION 
and END of test 
10 and END (Task is S% full.? 


:0 0*0 0 SUNY 
w 
J 
a 


SFIN LEFT 90 DEGREES (a Task) 


Does WAIT this many seconds ae 
and GO COUNTERCLOCKWISE 
and WAIT this many seconds 1.38 
and STOF ALL MOTION 
and END (Task is 2% full.) 


U h QN 


SFIN RIGHT 90 DEGREES (a Task) 


Does WAIT this many seconds i 
and GO CLOCKWISE 

and WAIT this many seconds i 
and STOF ALL MOTION 

and END (Task is ZX full.) 


Ch h UON = 


STARTUF (a Task) 


1 Does CLEAR the page 

2 and DISFLAY the "Robot Control Language (RCL-II) with SAVVY -- Version 1.00 
oF se 

= and DISPLAY the VERSION 

4 and CARRIAGE return 

= and CARRIAGE return 

é and DISPLAY the "RCL-II is Copyright (C) i982 by RE Robot Corpor ation. All 
rights reserved.” 

7 and CARRIAGE return 

8 and CARRIAGE return 

9 and END (Task is 15% full.) 


STO 


1 
2 


TES 


O O YY O OM b LI N) н 


TUR 


F ALL MOTION (a Task) 


Does Z COMPILE the BASIC statement 
and END (Task is 3% full.) 


"@#7802=0" which means "STOP ALL MOTIO 


T IF the variable <1> is (=,<,>,<>) <22 compared to «3» (a Function) 


Does COPY from "TEST IF" to TASK NAME 
and Z ERROR CHECK IF/UNTIL STATEMENT 
and PASTE the "IF " in front of <1> 
and FASTE the FRONT in front of <2> 
and FASTE the FRONT in front of «3» 
and PASTE the FRONT in front of " GOTO " 


and Z COMFILE the BASIC statement FRONT which means "MAKE A COMFARISON" 


and COFY from "IF" to STRUCTURE ТҮРЕ 


and SAVE new page in LOOFS 
and COPY £rom EMFTY to TASK NAME 
and SAVE new page in STRUCTURES 


and END (Task is 9% full.) 
N OFF LED number «1» (a Function) 
Does IF the <1> IS 1 then 
Do Z COMPILE the BASIC statement "X=#FD" which means "TURN OFF LED 1" 
and OTHERWISE 
Do IF the <1> IS 2 then 
Do Z COMPILE the BASIC statement "X-4FB" which means "TURN OFF LED 
and OTHERWISE 
Do IF the <1> 15 3 then 
Do Z COMPILE the BASIC statement "X=#F7" which means "TURN OFF ' 
and OTHERWISE 
Do IF the <1> IS 4 then 
Do Z COMPILE the BASIC statement "X=#EF" which means "TURN ( ` 
4 LL] | 
and . OTHERWISE 
Do Z COMFILE the BASIC statement "X-4DF" which means "TURN DF 
g” 
and END of test 
and END of test 
and END of test 
and END of test 


and Z COMFILE the BASIC statement "GOSUB 3120" which means 


and Z INSURE PORT 7801 SUBROUTINE IS 
and END (Taek is 294 full.) 


" GO TURN OFF А 


TURN OFF THE FLASHING LIGHTS (a Task) 


1 Does Z COMFILE the BASIC statement "X=#BF" which means "TURN OFF FLASHING L 


HTS" 

2 and Z COMFILE the BASIC statement "GOSUB 5120" which means " GO TURN OFF А 
IT" 

3 and Z INSURE PORT 7801 SUBROUTINE IS 

4 and END (Task is 7% full.) 


TURN OFF THE HORN (a Task) 


.1 Does 2 COMPILE the BASIC statement "X=#7F" which means “TURN OFF HORN" 
2 and Z COMPILE the BASIC statement "GOSUB 3120" which means "GO TURN OFF А: 


E. 
x and Z INSURE FORT 7801 SUBROUTINE IS 


4 and END (Task is 6% full.) 
TURN OFF THE INFRARED LED (a Task) 


1 Does TURN OFF LED number 1 
2 and END (Task is 1* full.) 


TURN ON LED number <i> (a Function) 


1 Does IF the <1> 15 1 then 
2 Do Z COMFILE the BASIC statement "X-402" which means "TURN ON LED 1" 
3 and OTHERWISE 
4 Do IF the <1> IS 2 then 
s Do 7 COMFILE the BASIC statement "X=#04" which means "TURN ON LED 2" 
6 and OTHERWISE 
7 Do IF the <1> 15 3 then 
8 Do Z COMFILE the BASIC statement “X=#08" which means "TURN ON LEI 
k 420 
9 and OTHERWISE 
10 Do IF the «1» 15 4 then 
11 Do Z COMPILE the BASIC statement "Х=#10" which means "TURN ON 
ED 4" 
12 and OTHERWISE 
1: ро Z COMPILE the BASIC statement “X=#20" which means "TURN CON 
59 a" 
14 and END of test 
iS and END of test 
16 and END of test 
17 and END of test 


18 and Z COMFILE the BASIC statement "GOSUB 3100" which means " GO TURN ON A E 


19 and Z INSURE FORT 7801 SUBROUTINE IS 
ZO and END (Task is 23% full.) 


1 Does 
TS" 
2 and 
T" 
5 and 
4 and 
TURN ON 
1 Does 
2 and 
3 and 
4 and 
TURN ON 
1 Does 
2 and 


THE FLASHING LIGHTS (a Task) 


z COMPILE the BASIC statement "X2440" which means "TURN ON FLASHING 


z COMFILE the BASIC statement "GOSUB 3100" which means " GO TURN ON ^ 


z INSURE FORT 7801 SUBROUTINE IS 

END (Task is 7* full.) 

THE HORN (a Task) 

Z COMPILE the BASIC statement "Х=#80" which means "TURN ON HORN" 


Z COMPILE the BASIC statement "GOSUB 5100" which means "GO TURN ON A t 


Z INSURE PORT 7801 SUBROUTINE IS 


END (Task is 6% full.) 
THE INFRARED LED (a Task) 


TURN ON LED number 1 
END (Task is 1% full.) 


TURN THE WRIST (CW, CCW): <1> for this many degrees <2> (a Function) 


1 Does 
2 Do 
S and 
4 Do 
ч Do 
6 and 
7 and 
8 and 
9 Do 
10 Do 
11 and 
12 and 
13 and 
14 and 
15 and 
LE. " 

16 and 
RIST" 
17 and 
18 and 
19 and 
ZO and 
21 and 
22 and 
23 and 
24 and 
2S and 
26 and 


IF the <1> IS CW then 
COPY from "D=#7805:M=128:N=0:" to TEMP 
OTHERWISE 
IF the <1> 15 CCW then 
COPY from "D=#7805:M=192:N=64:" to TEMP 


END of test 
END of test 
IF the «2» IS GREATER THAN OR EQUAL TO 1 then 
IF the «2» IS LESS THAN OR EQUAL TO 360 then 
MULTIPLY the <2> by 19.88 
SFLIT the number PRODUCT 
COPY from INTEGER to FRODUCT 
FASTE the "P=" in front of FRODUCT 
PASTE the TEMP in front oí FRONT 
Z СОМҒІ Е the BASIC statement FRONT which means "SET THE MOTOR 
"GOSUB 3400" which means “TURN THE 


Z COMPILE the BASIC statement 


Z INSURE ARM PULSE SUBROUTINE IS 


GO to the line called "SKIF" 
END of test 
END of test 
CARRIAGE return 
QUTFUT ¢rom "Wrist Error: degrees = " using format DEFAULT 


OUTPUT from <2> using format DEFAULT 
HALT and return to Ready 

LABEL this line "SKIP" 

END (Task is 24% full.) 


WAIT this many seconds <12> (a Function) 


Does IF the «1» IS NOT О then 
IF the «1? IS LESS THAN OR EQUAL TO 1 then 


1 
2 Do 
3 Do 
4 and 
= and 
é and 
7 Do 
8 and 
9 and 
ECONDS" 
10 and 
11 and 
12 and 
13 Do 
14 and 
15 and 
16 and 
O WAIT" 
17 and 
18 and 
19 and 
20 and 


MULTIFLY the «1» by 1,000 
PASTE the “DELAY " in front of PRODUCT 
z COMPILE the BASIC statement FRONT which means "SHORT WAIT" 


OTHERWISE 


SPLIT the number <12 
PASTE the "Tz" in £ront of INTEGER 
7 COMFILE the BASIC statement FRONT which means "NUMEER OF WHOLE 


z COMFILE the BASIC statement "GOSUB 3000" which means "GO WAIT" 
1 INSURE WAIT SUBROUTINE IS 
IF the FRACTION IS NOT O then 

MULTIFLY the FRACTION by 1,000 

TAKE this many characters 3 from FRODUCT 

PASTE the "DELAY " in front of FRONT 

Z COMPILE the BASIC statement FRONT which means "MILLISECONDS 


END of test 
END of test 


END of test 


END 


(Task is 21% full.) 


WAIT RANDOMLY up to this many seconds <i> (a Function) 


1 Does 
2 and 
3 and 
4 and 
S and 
6 and 
X АРНА 
1 Does 
2 and 
3 and 
4 and 
S and 
6 and 
7 and 
8 and 
9 and 
10 and 
11 and 
12 and 
iz and 
14 and 
15 and 
16 and 
17 and 
18 and 
19 and 
20 and 
21 and 


22 and 


SPLIT the mumber <1> 

FASTE the “W=" in front of INTEGER 

z COMPILE the BASIC statement FRONT which means "MAXIMUM SECONDS" 

Z COMFILE the BASIC statement "GOSUB 3070" which means "GO WAIT RANDOM 


Z INSURE RANDOM WAIT SUBROUTINE 


END 


(Task is 7% full.) 


(a Task) 


PREFARE THE ROBOT 
BEGIN A LOOF 
PREPARE THE ROBOT 


TURN 


ON THE FLASHING LIGHTS 


BEGIN A LOOP 


TURN 
MOVE 
EXIT 


ON THE FLASHING LIGHTS 
FORWARD 
IF ANY BUMFER TOUCHED 


REFEAT THIS LOOP 
PREPARE THE ROBOT 


STOF 
MOVE 
HONK 
WAIT 
STOF 
MOVE 
WAIT 
STOF 


ALL MOTION 

BACKWARD 

the horn for this many seconds .S 
this many seconds 1 

ALL MOTION 

RANDOML Y 

RANDOMLY up to this many seconds Š 
ALL MOTION 


FREFARE THE ROBOT 
CLEAR ALL ITEMS 
REFEAT THIS LOOF 


END 


(Task is 7% full.) 


һ к 


TASKS 
Name (Status) 


ASSIGN A MOTOR CODE 
*BEGIN A COUNTED LOOP called «1» beginning at <2> ending at <3> 
*BEGIN A LIMITED LOOP 
*BEGIN A LOOP 
*BUILD a program from the robot task <1> 
*BUILD AND LOAD 
*CALCULATE variable <1> = <2> (+,-,3,/) <3> <4> 
*CALL this robot task line «12» 
CLEAR ALL ITEMS 
*DEFINE A VARIABLE called «41» 
END HERE 
END OF PROGRAM 
*EXIT IF ANY BUMPER TOUCHED 
*EXIT IF FRONT+REAR BUMFER FRESS 
*EXIT IF SONAR distance value is less than <1> 
«EXIT IF THE BATTERY IS LOW 
EXIT IF THE CHARGER IS TOUCHED 
«EXIT IF THE TAPE IS SENSED 
«EXIT IF THIS BUMFER is touched <1> 
EXIT THIS LOOP 
» FOLLOW TAFE 
«60 CLOCKWISE 
*GO COUNTERCLOCKWISE 
*LHONK the horn for this many seconds <1> 
INITIALIZE MEMORY 
INITIALIZE VARIABLES 
*JUMP to the line called <1> 
*LIGHTS ROUTINE 
*LIST THE PROGRAM 
*LOAD 
."i DAD THE PHRASE called: <1> with phonemes: <2> 
*MAINTAIN CHARGE 
*MOVE BACKWARD 
*MOVE DISTANCE BACKWARD for this many feet: <1> 
*MOVE DISTANCE FORWARD for this many feet: <1> 
*MOVE FORWARD 
*MOVE. FORWARD TIL TAPE NOT SENSED 
*MOVE RANDOMLY 
*MOVE THE ARM FROM SHOULDER (UP,DOWN,IN,OUT): <1> for this many degrees <2> 
*MOVE THE FOREARM (IN,OUT): <1> for this many degrees «2» 
*MOVE THE HAND (OPEN,CLOSE): <1> for this (1-100) 4: <2> 
*MOVE TIMED BACKWARD for this many seconds <1> 
*MOVE TIMED FORWARD for this many seconds <1> 
*MOVE WITH BETA INTELLIGENCE 
"OTHERWISE DO 
*PICK A RANDOM DIRECTION 
*PIVOT ON LEFT CLOCKWISE 
*PIVOT ON LEFT COUNTERCLOCKWISE 
*PIVOT ON RIGHT CLOCKWISE 
*PIVOT ON RIGHT COUNTERCLOCKWISE 
*FREPARE THE ROBOT 
*PREPARE THE VOICE 
REMARK that: <1> 
*REPEAT THE LIMITED LOOP unless <1> is (<,>,=,<>) <2> to «32» 
*REPEAT THIS COUNTED LOOF for the counter «41» 
*REPEAT THIS LOOP 
REPORT ASSIGN ERROR 


TASKS 
Name (Status) 


REPORT DELETE ERROR 

REPORT GET ERROR (Undefined) 

REFORT LOAD ERROR 

REPORT MATH ERROR 

REFORT REFLACE ERROR 

REFORT SAVE ERROR 

*RUN 

*cGET the variable «1» equal to <2> 

SHOW ERRORS 

SHOW THE PHONEME DICTIONARY 

*SPEAK the phrase called: <12 

*cPIN AROUND CLOCKWISE this many times: <1> 
*SPIN AROUND COUNTERCLOCKWISE this many times: <1> 
*SFIN CLOCKWISE this many degrees: <1> 

*cPIN COUNTERCLOCKWISE this many degrees: <1> 
*cFIN LEFT 90 DEGREES 

*SPIN RIGHT 90 DEGREES 

STARTUP 

*cTOP ALL MOTION 

*TEST. IF the variable 41» is (=,<,>,<>) <2> compared to <> 
*TURN OFF LED number «41? ` Ў 
*TURN OFF THE FLASHING LIGHTS 

*TURN OFF THE HORN 

*TURN OFF THE INFRARED LED 

*TURN ON LED number <1> 

*TURN ON THE FLASHING LIGHTS 

*TURN ON THE HORN 

*TURN ON THE INFRARED LED 

*TURN THE WRIST (CW, CCW): «1» for this many degrees <2> 
WAIT this many seconds <1> 

MWAIT RANDOMLY up to this many seconds <12> 


N N N N N N N NNN NNN FI FY NI мы 


ALPHA 

ALFHA W/SONAR 

BETA 

BETA W/SONAR 

BUMPER ACTIVATED MOTIONS 

CHARGER FINDER 

LOAD THE INTRODUCTION 

SIMPLE SIMON 

COMFILE the BASIC statement <1> which means <2> 
COMPUTE 2 TO THE N-1 , with N = <1> 
DELAY for this many loops: <1> 

DO CHECK if item <1> is in folder <2> 
DO NUMBER TEST on <1> 

EMFTY THE PROGRAM 

ERROR CHECK IF/UNTIL STATEMENT 

ERROR CHECK MATH FUNCTION 

ERROR CHECK STRUCTURES 

ERROR CHECK THE FOR STATEMENT 

ERROR CHECKING? 

FIND the label called <1> 

BET PREVIOUS BEGIN 

GET PREVIOUS IF OR ELSE 

INCLUDE at 41» the statement <2> which means «3» 
INCREMENT the <1> 

INCREMENT STATEMENT NUMBER 

INITIALIZE LEGAL VARIABLES 


. €. gs 


TASKS 
Name (Status) 


INSURE ARM PULSE SUBROUTINE IS 
INSURE BETA SUBROUTINE IS 
INSURE END OF PROGRAM IS THERE 
INSURE PORT 7801 SUBROUTINE 15 
INSURE RANDOM TURN SUBROUTINE 
INSURE RANDOM WAIT SUBROUTINE 
INSURE. VOICE SUBROUTINE IS 
INSURE WAIT SUBROUTINE IS 

LOAD SONAR 

LOAD VOICE SUBROUTINE 

LOOK FOR BEGIN 

LOOK FOR MATCHING STATEMENT 
OUTPUT PAGE NUMBER 

OUTPUT PROGRAM HEADING 

PATCH UF END STATEMENTS 

PATCH UF EXIT STATEMENTS 

PATCH UP JUMP STATEMENTS 

SAVE FOLDER ERROR 

SAVE NUMBER OR FOLDER ERROR 
SAVE STRUCTURE ERROR missing the statement <1> to go with the statment <2> 
statement number <3> > 

ZZ AVAIL TASK 

ZZ AVAIL TASK #1 
ZZ AVAIL TASK #10 
ZZ AVAIL TASK #11 
ZZ AVAIL TASK #12 
ZZ AVAIL TASK #13 
ZZ AVAIL TASK #14 
ZZ AVAIL TASK #2 
ZZ AVAIL TASK #3 
ZZ AVAIL TASK #4 
ZZ AVAIL TASK #5 
ZZ AVAIL TASK #2 
ZZ AVAIL TASK #7 
ZZ AVAIL TASK #8 


N N N N N N N N N N NI N NI NNN ч F4 


APPENDIX 2 


Detail of Provided RCL Tasks 


ASSIGN A MCTOF. CODE 


1 Does Z COMPILE the BASIC 
^ and Z COMPFILE the BASIC 
WARD" 

= and Z COMPILE the BASIC 
GHT" 

4 and Z COMFILE the BASIC 
ERSE" 

= ага Z COMFILE the BASIC 
é and Z COMPILE the BASIC 
RSE" 

7 and Z2 COMFILE the BASIC 
EFT" 

8 and Z COMFILE the BASIC 
ARD oe 

© and Z COMPILE the BASIC 
10 and END (Task is 32% 


BEGIN A COUNTED LOOF called 41? beginning at <2> ending at <> 


1 

z 

M. 

4 

s 

6 

7 and Z 
. OR/NEXT"" 


and FASTE the 
and FASTE the 
and PASTE the 
and FASTE the 
and PASTE the 


COMFILE 


8 and COFY from 
9 and SAVE new page in STFUCTUFES 


10 


BEGIN A LIMITED LOOF 


AUN 


BEGIN A LOOF 


and END 


and END 


and COFY from 
and SAVE new page in STRUCTURES 
is 4% fu11.) 


(Task 


(Task 


a F OR LLJ 
FRONT 


(a Task) 


etatement 
etatement 


statement 
statement 


etatement 
statement 


etatement 
statement 


etatement 


full.) 


"IF Y=2S 
"IF Y=254 


"IF Y=247 
"IF Y=127 


"IF Y=239 
“IF Y=191 


oe eM=F " 


Does Z ERROF CHECK THE FOF STATEMENT 
in front of 71> 
in front of 


FRONT in ¢ront of “2> 


FRONT in front of 


" F Q LL] 


FRONT in front of «3^ 
the BASIC statement FFONT which means "BEGIN A COUNTED LOOF- í 


n FOR 0 


is 9% 


" DQ " 


(a Task) 


full.) 


(a Task) 


to STRUCTUFE TYFE 


THEN 
THEN 


THEN 
THEN 


THEN 
THEN 


THEN 


THEN 


which means 


F=9" which meens 
P=8" which means 
==" which means 
F=7" which means 
P=" which means 
F=2" which means 
P=10" which means 
Fz1" which means 


“FORWAF 
"RIGHT X 


"ROTATE ! 
"RIGHT mi 


"REVERS | 
"| EFT F SN 


“ROTATE 


"LEFT Fof 


“ASSIGN THE MOTOR CC £ 


(a Function?) 


Does Z COMFILE the BASIC statement "DO" which means "BEGIN A LIMITED LCOF" 
to STRUCTURE ТҮРЕ 


1 Does Z COMFILE the BASIC statement "REM START A LOOF" which means "BEGIN AL 


OF e 


N 


t" b CI 


and COFY from 
and SAVE new page in LOOFS 
and SAVE new page in STRUCTUKES 


and END 


(Task 


"BEGIN" to STRUCTURE ТҮРЕ 


is SA 


full.) 


(a Function) 


BUILD a program from the robot task <1> 
1 Does CLEAR the pags 

2 and COFY from "BUILD" to ASSIGNMENT 

Z and ASSIGN the «1? to ASSIENED TASK 

4 and Z ERROR CHECKING? 

5 amd CLEAF the page 

& and Z EMFTY THE FROGRAM 

7 and DISFLAY the "Now building robot task " 

8 and DISFLAY the X1» 

9 and DISFLAY the "...cone moment, please." 

10 and CARRIAGE return 

11 and DO the assigned task 

2 and Z PATCH UF JUMF STATEMENTS 

13 and Z INSURE END OF PROGRAM IS THERE 

14 and COPY from EMFTY to ASSIGNMENT 

15 and IF the ERROF CHECK IS YES then 

16 Do COFY from 199 to ERROR NUMEER 

17 and Z ERROR CHECK STRUCTURES 

18 and GET the page indexed by FIRST in folder ERRORS 

19 and IF the FAGE IS NOT EMFTY then 
20 Do SHOW ERRORS 
21 and END of test 
22 and END of test 
22 and END (Tash is 13% full.) 
BUILD AND LOAD (a Task) 

1 Does CLEAF the page 

2 and OUTFUT.from “¥¥¥ Build and load an RBZX robot task łłł" using format 
AULT 

S and CARRIAGE return 

4 and CARFIAGE return 

5 and OUTFUT from "Flease enter the name of the robot task: " using format 
FAULT 

6 and INFUT into HERE 

7 and BUILD a program from the robot task HERE 

8 and CLEAR the page 

9 and OUTFUT from "t$ Build completed, now loading into the RESX £1" using 
mat DEFAULT 

10 and LOAD 

11 and END (Task is 16%Z full.) 


4 


ota o. 


CALCULATE variable 41^ = qz. 


1 Does 
4 Land 
3 and 
4 and 
5 and 
é and 
7 and 
CALL thi 
1 Does 
2 and 
3 and 
4 and 
S and 
& and 
CLEAR AL 
1 Does 
= and 
DEFINE A 
1 Does 
.2 and 
$ Do 
4 and 
S Do 
6 and 
7 and 
8 and 
9 and 
10 and 
11 and 
12 and 
13 and 
END HERE 
1 Does 
O HERE" 


2 and 
3 and 
4 and 
= and 


юу (4,-,8./) Жуз <4> га Function) 


z ERROR CHECK MATH FUNCTION 

PASTE the <1> in front of "=" 

FASTE the FRONT in front of «2» 

PASTE the FRONT in front of <3> 

FASTE the FRONT in front of <4> 

7 COMFILE the BASIC statement FRONT which means "MATH FUNCTION" 


END (Task is 5% full.) 
= robot task line «1^? (a Function) 


PASTE. the "REM LABEL THIS LINE " in front of 41^? 

Z COMPFILE the BASIC statement FRONT which means "LABEL THE LINE" 
PASTE the "L" in front of «1»? j 

COPY from FRONT to STRUCTURE ТҮРЕ 

SAVE new page in LOOFS 

END (Task is 6% full.) 


L ITEMS (a Task) 


Z COMFILE the BASIC statement "CLEAR" which means "CLEAF VARIABLES" 
END (Task is 3% full.) 


VARIABLE called <1?» (a Function) 


BEGIN at pace indexed by FIRST in folder LEGAL VARIABLES 


START a loop 
GET the page indexed by NEXT in folder LEGAL VARIABLES 
IF the USED IS NO then 
LEAVE this loop 
END of test 
REFEAT this loop 
COPY from <1> tc VARIABLES ID 
COFY from LEGAL ID to VAR NAME 
SAVE new page in VARIABLES 
COFY from YES to USED 
REFLACE this page in folder LEGAL VAFIAELES 
END (Task is S* full.) 


(a Task) 


Z COMPILE the BASIC statement "REM END HERE" which means "FALL THEOU! 4 


Z PATCH UP END STATEMENTS 

COPY from "END" to STRUCTURE ТҮРЕ 
SAVE new page in STRUCTURES 

END (Task is 5% full.) 


END OF FROGRAM (a Task) 


“GOTO 3400" which means “GOTO END" 


1 Does Z INCLUDE at 2.999 the statement 
"REM END OF PROGRAM" which means "" 


^ and 2 INCLUDE at 3.600 the statement 
з and END (Task is 6% full.) 


EXIT IF ANY BUMFER TOUCHED (a Task) 
1 Does Z COMPILE the BASIC statement "Y-6437800" which means "TEST FOR EUMFER 
NTACT" 

2 and Z COMFILE the BASIC statement "IF y<255 GOTO EXIT" which m&sns "EXIT 1 
ANY CONTACT" 

% and COFY from "EXIT" to STRUCTURE TYFE 

a and SAVE new page in LOOFS 

S and SAVE new page in STRUCTURES 

& and END (Task is 10X full.) 


EXIT IF FRONT+REAR BUMFER PRESS (a Task) 


1 Does Z COMFILE the BASIC statement "ү=12#7800" which means "TEST FOR BUMFEF 


NTACT" 

2 and Z COMFILE the BASIC statement "IF y=2zs GOTO EXIT" which means EXIT 1 
FRONT+REAR BUMFER FRESS" 

3 and COFY from "EXIT" to STRUCTURE TYFE 

4 and SAVE new page in LOOFS 

= and SAVE new page in STRUCTURES 

& and END (Task is 11% full.) 


EXIT IF SONAR distance value is less than <1? (a Function) 


Does Z COMFILE the BASIC statement "DzO" which means "ZERO DISTANCE" 
and Z COMFILE the BASIC statement “LINK 41800" which means "CALL SONAR” 
and SFLIT the number “1? 
and PASTE the "IF D«" in £ront of INTEGER 
and PASTE the FRONT in front of " GOTO EXIT" 
and Z COMFILE the BASIC statement FRONT which means “EXIT IF LESS THAN VALI 


ночо O(N BNN 


and COFY from "EXIT" to STRUCTURE TYFE 
and SAVE new page in LOOFS 

and COFY from YES to SONAR NEEDED 

and SAVE new page in STRUCTURES 

and END (Task is 14% full.) 


һо مم‎ 


e v 


(et Hye 9 kasq Me 


EXIT IF THE BATTERY IS LOW (a Task) 


1 Does Z COMFILE the BASIC statement “Z=@#7802 AND #10" which means "TEST ] 
TTERY LOW" 

2 and Z COMPILE the BASIC statement "IF 7=О GOTO EXIT" which means "EXIT IF 
TTERY IS LOW" 

3 cand COFY from "EXIT" to STRUCTURE TYFE 

4 and SAVE new page in LOOFS 

5 and SAVE new page in STRUCTURES 

é and END (Task is 10% full.) 
EXIT IF THE CHARGER IS TOUCHED (a Task) 

1 Does Z COMPILE the BASIC statement "Q=@#7802 AND #20" which means "TEST F f 
HARGER CONTACT" е 

2 and Z COMPILE the BASIC statement "IF Q=0 GOTO EXIT" which means "EXIT IF 
ARGER IS TOUCHED" 

3 and COFY from "EXIT" to STRUCTURE TYFE 

4 and SAVE new page in LOOFS 

© and SAVE new page in STRUCTURES 

é and END (Task is 11% full.) 
EXIT IF THE TAFE IS SENSED (a Task) 

1 Does TURN ON THE INFRARED LED 

2 and 2 COMFILE the BASIC statement “R=@#7802 AND #40" which means "TEST FOF 
AFE SENSE" 

S and Z COMPILE the BASIC statement "IF R=0 GOTO EXIT" which means "EXIT I 
FE SENSED" | 

4 and COFY from "EXIT" to STRUCTURE TYPE 

= and SAVE new page in LOOFS 

& ‘and SAVE new page in STRUCTURES 

7 and END (Task is 10% full.) 
EXIT IF THIS BUMPER is touched <1> (a Function) 

1 Does IF the <1> IS LESS THAN OR EQUAL TO 8 then 

2 Do IF the <1> 15 GREATER THAN OR EQUAL TO 1 then 

929 80 Z COMPILE the BASIC statement "Y2G47800" which means "TEST FOR B 
FER CONTACT" 

4 and SFLIT the number «41» 

S and Z COMPUTE 2 TO THE N-1 , with N = INTEGER 

6 and SUBTRACT the PRODUCT from 255 

7 and FASTE the “IF Y=" in front of DIFFERENCE 

8 and PASTE the FRONT in front of " GOTO EXIT" 

9 and Z COMPILE the BASIC statement FRONT which means "EXIT IF CONTA T 
10 and COPY from "EXIT" to STRUCTURE ТҮРЕ 

11 and SAVE new page in LOOFS 

iz and SAVE new page in STRUCTURES 

13 and END of test 

14 and END of test 


15 and END (Task is 15% full.) 


EXIT THIS LDOF (a Task) 
Z COMPILE the BASIC Statement "GOTO GOES HERE" which means "EXIT THIS 


1 
OP oe 
2 
3 
4 
5 


Does 


and 
and 
and 
and 


COPY from "EXIT" to STRUCTURE TYFE 
SAVE new page in LOOFS 

SAVE new page in STRUCTURES 

END (Task is 5% full.) 


FOLLOW TAFE (a Task) 


OO YY O ( PUNY 


60 


Does 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 


BEGIN A LOOP 

PREFARE THE ROROT 

CLEAR ALL ITEMS 

BEGIN A LOOP 

PIVOT ON LEFT COUNTERCLOCKWISE 
EXIT IF THE TAPE IS SENSED 
EXIT IF THE CHARGER IS TOUCHED 
REPEAT THIS LOOF 

EXIT IF THE CHARGER IS TOUCHED 
TURN ON THE FLASHING LIGHTS 
MOVE FORWARD TIL TAFE NOT SENSED 
FREFARE THE ROEOT 

CLEAR ALL ITEMS 

BEGIN A LOOF 

PIVOT ON RIGHT CLOCKWISE 

EXIT IF THE TAPE IS SENSED 
EXIT IF THE CHARGER IS TOUCHED 
REFEAT THIS LOOF 

EXIT IF THE CHARGER IS TOUCHED 
TURN ON THE FLASHING LIGHTS 
MOVE FORWARD TIL TAFE NOT SENSED 
REFEAT THIS LOOF 

END (Task is 6% full.) 


CLOCKWISE (a Task) 


Does Z COMFILE the BASIC statement "#7 В02=#05 


and 


END (Task is 3% full.) 


COUNTERCLDCKWISE (a Task) 


which means 


"SFIN CLOCKWISE 


1 Does Z COMPILE the BASIC statement “@#7802=#0A" which means “SFIN COUNTERCL 


KWI 
2 


SE oe 
and 


END (Task is 4% full.) 


as SV tess 


HONK the horn for this many seconds <1> (a Function) 


1 Does TURN ON THE HORN 
2 and WAIT this many seconds <1> 


3 and TURN OFF THE HORN 
4 and END (Task is 1% full.) 


INITIALIZE MEMORY (a Task) 


1 Does Z COMPILE the BASIC statement "N-TOF" which means "INITIALIZE EXFER 


BLOCK" | 
2 and Z СОМРІ Е the BASIC statement "O-TOF-*FF" which means "INITIALIZE INI 


TION BLOCK" 
and Z COMPILE the BASIC statement "М=ТОР+#200" which means 


3 

4 and Z COMPILE the BASIC statement "FOR PzN TO M" which means "" 
= and Z COMFILE the BASIC statement "GF-4FF" which means "" 

& and Z COMPILE the BASIC statement "NEXT P" which means "" 

7 and END (Task is 15% full.) 

INITIALIZE VARIABLES (a Task) 

1 Does Z COMFILE the BASIC statement "N-TOP" which means "" 

2 and Z COMPILE the BASIC statement “OQ=TOF+#FF" which means "" 

Z and Z COMFILE the BASIC statement "MzN" which means "" 

4 and Z COMPILE the BASIC statement "FOR F=N TO O" which means “INITIALIZE 
ORY" 

= and Z COMFILE the BASIC statement “GF=0" which means "" 

& and Z COMFILE the BASIC statement "NEXT F" which means "" 

7 and END (Task is 11% full.) 


JUMP to the line called <1> (a Function) 


1 Does PASTE the "JUMP TO LABEL " in front of «41» 
2 and Z COMFILE the BASIC statement "GOTO GOES HERE" which means FRONT 
3 and PASTE the "J" in front of «41» 
4 and COFY from FRONT to STRUCTURE TYFE 
5 and SAVE new page in LOOFS 

and END (Task is 6% full.) 


0- 


LIGHTS ROUTINE (a Task) 


Does TURN ON LED number 2 

and WAIT this many seconds .1 
and TURN ON LED number 3j 

and WAIT this many seconds .1 
and TURN ON LED number 4 

and WAIT this many seconds .1 
and TURN ON LED number 5 

and WAIT this many seconds .1 
and TURN ON THE FLASHING LIGHTS 
and WAIT this many seconds 1 
and END (Task is 7% full.) 


pa `‏ هم 
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LIST THE FROGRAM (a Task) 


Does BEGIN at page indexed by FIRST in fo 


lder SOURCE 


and COFY from O to PAGE COUNT 


1 

2 
3 and 
á Do 
5 and 
& and 
7 and 
8 and 
5 and 
10 Do 
11 and 
2 and 
13 Do 
14 and 
15 and 
16 and 
17 and 
18 and 
19 and 
ZO and 
21 and 
2 and 
29 Do 
24 and 
. 25 and 
26 and 
27 Do 
28 and 
.29 and 
50 and 
31 and 
52 and 
33 and 
34 and 
55 and 
LOAD (a 
1 Does 
2 Do 
S and 
4 and 
5 and 
6 and 
7 and 
B and 
9 and 
10 and 
11 and 
12 and 
13 and 
14 and 
15 and 
156 and 
17 and 
18 and 
19 and 
20 and 


START a loop 
CLEAR the 


page 


z INCREMENT the FAGE COUNT 
Z OUTFUT PAGE NUMBER 
z OUTFUT PROGRAM HEADING 
COPY from 5 to LINE COUNT 
START a loop 
Z INCREMENT the LINE COUNT 
GET the page indexed by NEXT in folder SOURCE 


IF the 


PAGE 


IS EMFTY then 


- LEAVE this loop 
of test 


END 
DUTFUT 
OUTFUT 
OUTPUT 
OUTPUT 
OUTFUT 
OUTPUT 


from 
from 
from 
from 
from 
from 


SPACES using format Š 

STATEMENT NUMBER using format "#4" 
SFACES using format Š 

BASIC TEXT using format 30 

SPACES using format Š 

MEANING using format 30 


CARRIAGE return 

IF the LINE COUNT 15 55-then 
LEAVE this loop 
END of test 

REFEAT this loop 


IF the PAGE 


IS EMFTY then 


LEAVE this loop 


£ND of 


test 


REFEAT this loop 
CARRIAGE return 
CARRIAGE return 
OUTPUT from SPACES using format 26 
OUTPUT from "£3 End of the Program £t" using format DEFAULT 
CARRIAGE return 
END (Task is 19% full.) 


Task) 


WHEN folder SOURCE DOES NOT CONTAIN 10 then 
REPORT LOAD ERROR 
END of test 
CLEAR the page 


RING bell 
RING bell 
RING bell 


DISPLAY the "Ready to load into the RBSX...press глу key to continue." 
LIMIT the input for ANSWER to a maximum of 1 

CLEAR the page 
DISFLAY the "%% Now loading...One moment please £z" 
CARRIAGE return 
CARRIAGE return 
DISPLAY the "Now loading your robot task..." 
CARRIAGE return 


PRINT the "" 


OUTPUT from "847802-2498:647801-97C" using format DEFAULT 


CARRIAGE return 
7 DELAY for this many loops: 10 
OUTPUT from "NEW #1000" using format DEFAULT 


Task) 


CARRIAGE return 
2 DELAY for this many loops: 60 
OUTFUT from "NEW" using format DEFAULT 
CARRIAGE return 
Z DELAY for this many loops: 5 
BEGIN at page indexed by FIRST in folder SOURCE 
IF the VOICE NEEDED IS YES then 
Z LOAD VOICE SUBROUTINE 
DISFLAY the "" 
CARRIAGE return 
PRINT the "" 
END of test 
IF the SONAR NEEDED IS YES then 
Z LOAD SONAR 
DISFLAY the "" 
CARRIAGE return 
PRINT the "*" 
END of test 
DISFLAY the "" 
CARRIAGE return 
DISPLAY the "Now loading your Tiny BASIC robot task..." 
CARRIAGE return . ` 
FRINT the "" 
START a loop 
GET the page indexed by NEXT in folder SOUFCE 
IF the FAGE IS EMFTY then 
LEAVE this loop 
END of test š 
PASTE the STATEMENT NUMEER in front of 
PASTE the FRONT in front of BASIC TEXT 
OUTPUT from FRONT using format DEFAULT 
CARRIAGE return 
DISFLAY the “#" 
FRINT the "" 
Z DELAY for this many loops: 5 
REFEAT this loop 
Z DELAY for this many loops: 15 
PRINT the "" 
OUTPUT from "RUN" using format DEFAULT 
CARRIAGE return 
DISFLAY the "" 
RING bell 
CLEAR the page 
DISPLAY the "111 Your robot task has been successfully loaded 


END (Task is 47% full.) 


222 


LOAD THE FHRASE called: <1> with phonemes: «2» (a Function) 


COPY from O to SFEECH LENGTH 


1 Does 

2 and COPY from EMFTY to SFEECH ADDRESS 

3 and GET the page indexed by FIRST in folder SFEECH LOAD DATA 

4 and DISFLAY the FAGE 

S and IF the PAGE 15 ЕМРТҮ then 

6 Do COPY from "TOF+500" to SFEECH ADDRESS 

7 and COPY from "TEMF" to LABEL ID 

8 and SAVE new page in SFEECH LOAD DATA 

9 and GET the page indexed by "TEMF" in folder SFEECH LOAD DATA 
10 and END of test 


11 and GET the page indexed by "TEMP" in folder SFEECH LOAD DATA 
12 and Z INSURE VOICE SUBROUTINE IS 
13 and START a loop 


14 Do IF the <2> IS EMFTY then 

13 Do LEAVE this loop 

16 and END of test 

17 and ADD the 1 and SPEECH LENGTH 

18 and COPY from SUM to SFEECH LENGTH 

19 and CUT the <2> after DELIMITER 

20 and COFY from BACK to <2> 

21 and SUBTRACT the 1 from LENGTH 

22 and TAKE this many characters DIFFERENCE from FRONT 

25 and WHEN folder PHONEMES CONTAINS FRONT then 

24 Do GET the page indexed by FRONT in folder PHONEMES 

25 and PASTE the "Р=#" in front of PHONEME CODE 

Ф and PASTE the FRONT in front of “:GOSUB 5500" r 

27 and 7 COMFILE the BASIC statement FRONT which means "VOICE SUBROUTIN: 
.28 and COFY from YES to VOICE NEEDED 

29 and OTHERWISE 

зо Do IF the ERROR CHECK IS YES then 

31 Do Z COMFILE the BASIC statement "REM FHONEME ERROR" which means 
52 and Z INCREMENT the ERROR NUMBER 

33 and COPY from STATEMENT NUMBER to LINE NUMEER 

54 and PASTE the PHONEME ID in front of " is not a valid phoneme" 
35 and COFY from FRONT to ERROR MESSAGE 

36 and SAVE new page in ERRORS 

27 and END of test 

S8 and END of test 

39 and REFEAT this loop 


40 and GET the page indexed by LAST in folder SFEECH LOAD DATA 
41 and COFY from <1> to LABEL ID 

42 and SAVE new page in SFEECH LOAD DATA 

4X and PASTE the SFEECH ADDRESS in front of "+" 

44 and PASTE the FRONT in front of SPEECH LENGTH 

45 and COPY from FRONT to SPEECH ADDRESS 

46 апа COPY from "TEMP" to LABEL ID 

47 and COFY from SFEECH ADDRESS to HERE 

4B and GET the page indexed by "TEMF" in folder SFEECH LOAD DATA 
49 and COFY from HERE to SFEECH ADDRESS 

= and REPLACE this page in folder SFELCH LCSD DATA 

$1 and END (Task is 38% full.) 


“жуз, 


A Tits 


p 


MAINTAIN CHARGE (a Task) 


Does BEGIN A LOOP 


and BEGIN A LOOP 
and EXIT IF THE CHARGER IS TOUCHED 


and SET the variable "P" equal to ° 
‚апа BEGIN A LOOP 
and 


and MOVE TIMED FORWARD for this many seconds .1 
and EXIT IF THE CHARGER IS TOUCHED 

and TEST IF the variable "P" is (=,<,>,<>) "=" compared to cs 
10 and MOVE TIMED BACKWARD for this many seconds 1 
11 and MOVE TIMED FOKWARD for this many seconds 1.1 
12 and SET the variable "P" equal to O 

13 and END HERE 

14 and REPEAT THIS LOOP 

15 and REFEAT THIS LOOP 

16 and TURN ON LED number 2 

17 and WAIT this many seconds 1 

18 and FREPARE THE ROBOT 

19 and REFEAT THIS LOOP 

ZO and END (Task is 147 full.) 


ооч O U b CN NJ н 


MOVE BACKWARD (a Task) 


1 Does Z COMPILE the BASIC statement "@#7802=#06" which means "REVERSE" 
Z and END (Task is 2* full.) 


MOVE DISTANCE BACKWARD for this many feet: <1> (a Function) 


1 Does IF the <1> IS GREATER THAN О then 
2 Do MULTIFLY the «1» by 3 

S and MOVE BACKWARD 

4 and WAIT this many seconds FRODUCT 

S and STOF ALL MOTION 

6 and END of test 


and END (Task is 3% full.) 


ч 


MOVE DISTANCE FORWARD +#ог this many feet: <1> (а Function) 


1 Does IF the <1> IS GREATER THAN О then 
2 Do MULTIPLY the «41» by 3. 

3 and MOVE FORWARD 

4 and WAIT this many seconds PRODUCT 

5 and STOP ALL MOTION 

& and END of test 

7 and END (Task is 3% full.) 


z COMPILE the BASIC statement “P=F+1" which means "INCREMENT LOOF Cf 


MOVE FORWARD (a Task) 


1 Does Z COMFILE the BASIC statement "G47802-409" which means "GO FORWARD" 
2 and END (Task is 3% full.) 


MOVE FORWARD TIL TAPE NOT SENSED (a Task) 


Does SET the variable "T" equal to 0 
and Z COMFILE the BASIC statement "DO" which means "BEGIN A LIMITED LOOF" 


1 

2 

з апа CALCULATE variable "T" = "T" (+,-,%,/) "+" — 1 
4 

5 


and MOVE FORWARD 
and Z COMPILE the BASIC statement “R=@#7802 AND #40" which means “TEST FOF 


E SENSE" 
and Z COMPILE the BASIC statement "UNTIL (К<>0) OR (T>=100)" which means " 


ECK EXIT CONDITIONS" 
7 and WAIT this many seconds .1 
and END (Task is 17% full.) 


MOVE RANDOMLY (a Task) 


1 Does Z COMPILE the BASIC statement "GOSUB 3040" which means "FICK RANDOM DI 


CTION" 
2 and Z COMPILE the BASIC statement “S#7802=V" which means "GO RANDOM DIRECT 


N" : ` 
Z and Z INSURE RANDOM TURN SUEROUTINE 


4 and END (Task is 7% full.) 


. MOVE THE ARM FROM SHOULDER (UP, DOWN, IN. OUT): <1> for this many degrees <22 (a 
` unction) 


1 Does IF the <i> IS IN then 


2 Do COFY from “D=#7805:M=8:N=0:" to TEMP 

3 and OTHERWISE 

4 Do IF the «1?» IS OUT then 

5 Do COPY from "D=#780S:M=12Z:N=4:" to TEMP 

6 and OTHERWISE 

7 Do IF the <1> IS DOWN then 

8 Do COPY from “D=#780S:M=3:N=1:" to TEMP 

9 and OTHERWISE 

10 Do IF the <1> IS UF then 

11 Do COPY from “D=#7805:M=2:N=0:" to TEMP 

12 and END of test 

13 and END of test . 
14 and END of test 

15 and END of test 

16 and IF the «2» IS GREATER THAN OR EQUAL TO 1 then 

17 Do IF the «2» IS LESS THAN OR EQUAL TO 360 then 

18 Do MULTIPLY the <2> by 40.38 

19 and SPLIT the number PRODUCT 

ZO and COFY from INTEGER to PRODUCT 

21 and FASTE the "P=" in front of FRODUCT 

2 and PASTE the TEMF in front of FRONT 

23 and Z COMFILE the BASIC statement FRONT which means "SET MOTUS, ETC 
мй and Z COMPILE the BASIC statement "GOSUR 3400" which means "MOVE THE 
25 and Z INSURE ARM PULSE SUBROUTINE IS 

26 and GO to the line called "SKIP" 

27 and END of test 

28 and END of test 


29 and CARRIAGE return 


a E 


o: j PL 


MOVE THE ARM FROM SHOULDER (UF, DOWN, IN, OUT): <1>, for this many degrees «2» 
unction) 


SO and 


S1 and 

2 and 
55 and 
54 and 


OUTPUT from "Shoulder Error: 
OUTPUT from <2> using format DEFAULT 
HALT and return to Ready 

LABEL this line "SKIP" 

END (Task is 30% full.) 


à 


degrees = " using format DEFAULT 


MOVE THE FOREARM (IN,OUT): <1> for this many degrees <2> (a Function) 


1 Does 
4 ро 
S and 
4 ро 
3 Do 
6 and 
7 and 
8 and 
9 Do 
10 Do 
11 and 
12 and 
13 and 
14 and 
15 and 
C. E 
15 and 
RM" 
17 and 
18 and 
19 and 
ZO and 
21 and 
22 and 
25 and 
24 and 
z and 
26 and 


IF the <1> IS IN then 
COFY from "Dz37805:M248:N-215:" to TEMP 
OTHERWISE 
IF the <1> IS OUT then 
COPY from "D=#7805:M=32:N=0:" to TEMP 
END of test 


END of test 
IF the «2» IS GREATER THAN OR EQUAL TO 1 then 


IF the «2» IS LESS THAN OR EQUAL TO 360 then 
MULTIFLY the <2> by 20.16 
SPLIT the number PRODUCT 
COFY from INTEGER to PRODUCT 
PASTE the "P=" in front of FRODUCT 
PASTE the TEMF in front of FRONT 


Z COMFILE the BASIC statement FRONT which means "SET THE MOTOR, 


Z COMPILE the BASIC statement "GOSUB 3400" which means 


Z INSURE ARM PULSE SUBROUTINE IS 

GO to the line called "SHIP" 

END of test 

END of test 

CARRIAGE return 
OUTPUT from “Forearm Error: degrees = " using format DEFAULT 
OUTFUT from <2> using format DEFAULT 
HALT and return to Ready 
LABEL this line "SKIP" 
END (Task is 24% full.) 


"MOVE TI 


MOVE THE HAND (OFEN,CLOSE): <1> for this (1-100) X: <2> (a Function). 


1 Does 
2 Do 
5 and 
& Do 
3 Do 
6 and 
7 and 
8 and 
9 Do 
10 Do 
11 and 
12 and 
13 and 
14 and 
15 and 
15 and 
17 and 


IF the «1» 15 OFEN then 
COFY from "D=#7806: M=242:N=240:" to TEMP 
OTHERWISE 
IF the «1?» IS CLOSE then 
COFY from “D=#7806: M=242:N=241:" to TEMP 
END of test 
END of test 
IF the «2» IS GREATER THAN OR EQUAL TO 1 then 
IF the <2> IS LESS THAN OR EQUAL TO 100 then 
MULTIPLY the <2> by 4.42 
SFLIT the number FRODUCT 
COFY from INTEGER to FRODUCT 
SFLIT the number PRODUCT 
PASTE the "Pz" in front of INTEGER 
PASTE the TEMP in front of FRONT 


Z COMPILE the BASIC statement FRONT which means "SET MOTORS. ETC 


Z COMPILE the BASIC statement “GOSUB 3400" which means 


"MOVE TF 


MOVE THE HAND (OFEN,CLOSE): <1> for this (1-100) X: <2> (a Function) 


18 and Z INSURE ARM PULSE SUEROUTINE IS 
19 and GO to the line called "SKIP" 

20 and END of test 

21 and END of test 


22 and CARRIAGE return 
23 and OUTPUT from "Hand Error: percent = " using format DEFAULT 


24 and OUTPUT from <2> using format DEFAULT 
25 and HALT and return to Ready 

26 апа LABEL this line “SKIP” 

27 and END (Task is 24% full.) 


MOVE TIMED BACKWARD for this many seconds <1> (a Function) 


1 Does MOVE BACKWARD 

2 and WAIT this many seconds <i> 
3 and STOP ALL MOTION 

4 and END (Task is 1% full.) 


MOVE TIMED FORWARD for this many seconds <1> (a Function) 


1 Does MOVE FORWARD 

2 and WAIT this many seconds <1> ` 
Z and STOF ALL MOTION 

4 and END (Task is 1% full.) 


"MOVE WITH BETA INTELLIGENCE (a Task) 


1 Does Z COMFILE the BASIC statement "GOSUB 3150" which means "GO TO BETA SU: 


-UTINE" 
.2 and Z COMPILE the BASIC statement “REM RETURN GOES HERE" which means "КЕТІ 
TO HERE" 
3 and COFY from STATEMENT NUMBER to RETURN STATEMENT NUMBER 
4 and Z INSURE BETA SUBROUTINE IS 
5 and END (Task is 9% full.) 


OTHERWISE DO (a Task) 


1 Does Z COMPILE the BASIC statement "REM ELSE" which means "DO THIS INSTEAD" 
2 and COPY from "ELSE" to STRUCTURE ТУРЕ : 

5 and SAVE new page in LOOFS 

4 and SAVE new page in STRUCTURES 

Š and END (Task is 57 full.) 


X ALPHA W/SONAR (a Task) 


Does FREFARE THE ROBOT 

and BEGIN A LOOF 

and PREPARE THE ROBOT 

and TURN ON THE FLASHING LIGHTS 

and BEGIN A LOOP 

and MOVE FORWARD 

and EXIT IF SONAR distance value is less than 95 
and EXIT IF ANY BUMFER TOUCHED 

and REFEAT THIS LOOF 

10 and FREFARE THE ROBOT 

11 and STOF ALL MOTION 

12 and MOVE BACKWARD 

13 and HONK the horn for this many seconds .5 
14 and WAIT this many seconds 1 

15 and STOF ALL MOTION 

16 and MOVE RANDOMLY 

17 and WAIT RANDOMLY up to this many seconds 5 
18 and STOF ALL MOTION 

19 and PREPARE THE ROROT 
20 and CLEAR ALL ITEMS 

21 and REPEAT THIS LOOF 
22 and END (Task is 8* full.) 
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X BETA (a Task) 


1 Does PREPARE THE ROBOT 

2 and INITIALIZE MEMORY 

3 and TURN ON THE FLASHING LIGHTS 

4 and BEGIN A LOOP 

= and EXIT IF ANY BUMFER TOUCHED 

& and REFEAT THIS LOOP 

7 and CALL this robot task line “BEGIN BETA HERE" 
8 and PREFARE THE ROBOT 

9 and CLEAR ALL ITEMS 

10 and TURN ON THE FLASHING LIGHTS 

11 and BEGIN A LOOF 

12 and MOVE FORWARD 

13 and EXIT IF ANY BUMFER TOUCHED 

14 and REFEAT THIS LOOP 

15 and MOVE WITH BETA INTELLIGENCE 

16 and JUMP to the line called "BEGIN BETA HERE" 
17 and END (Task is 8% full.) 


„ч 
» 


— 


Z DO NUMBER TEST on <1> (a Function) 


Does ADD the O and 41» 
and IF the SUM IS ERROR then 
Do COFY from "FAIL" to RESULT 


and COPY from <1> to ITEM МАМЕ 
OTHERWISE 

Do COFY from "FASSED" to RESULT 

and END of test 
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and END (Task is 5% full.) 


z EMPTY THE PROGRAM (a Task) 


Does ERASE all pages in folder SOURCE 

and ERASE all pages in folder LCOFS 

and ERASE all pages in folder VARIABLES 
and ERASE all pages in folder E^F*ORS 

and ERASE all pages in folder STRUCTUSES 
and ERASE all pages in folder SFEECH LOAD DATA 
and Z INITIALIZE LEGAL VARIABLES 

and COFY from O to STATEMENT NUMBER 

and COPY from NO to SONAR NEEDED 
10 and COPY from O to ERROR NUMBER 
11 and COPY from NO to CHECKED 

12 and COFY from NO to VOICE NEEDED 
13 and COFY from NO to SONAR NEEDED 

14 and COPY from EMFTY to KESULT 

15 and COPY from EMFTY to SPEECH ADDRESS 
16 and END (Task is 8% full.) 
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Z ERROR CHECK IF/UNTIL STATEMENT (a Task) 


Does Z DO CHECK if item <i> is in folder "VARIABLES" 
and IF the RESULT IS "FAIL" then 
Do Z SAVE FOLDER ERROR 


1 
2 
3 
4 and OTHERWISE 

9 Do GET the page indexed by <12 in folder VARIABLES 
& 

7 

в 


and COPY from VAR NAME to «1» 

and END of test 

and Z DO CHECK if item <2? is in folder "CONDITIONS" 
9 and IF the RESULT IS "FAIL" then 
10 Do Z SAVE FOLDER ERROR 


11 and OTHERWISE : 
12 Do GET the page indexed by «2» in folder CONDITIONS 


13 and IF the TASK NAME IS "TEST IF" then 
14 Do COFY from OFFOSITE to «2» 

15 and END of test 

156 and END of test 


17 and Z DO NUMBER TEST on <3> 
18 and IF the RESULT 15 "FAIL" then 


19 Do Z DO CHECK if item «3» is in folder "VARIABLES" 

ZO and IF the RESULT IS "FAIL" then 

21 Do z SAVE NUMBER OR FOLTER ERROR 

= and OTHERWISE 

29 Do GET the page indexed by <3> in folder VARIABLES 
24 and COPY from VAR NAME to <S> 

25 and END of test 

26 and END of test 


27 and END (Task is 19% full.) 


X BETA W/SONAR (a Task) 


Does PREFARE THE ROBOT 

and INITIALIZE MEMORY 

and TURN ON THE FLASHING LIGHTS 

and BEGIN A LOOP 

and EXIT IF ANY BUMFER TOUCHED 

and REFEAT THIS LOOP 

and CALL this robot task line "BEGIN БЕТА HERE" 
and PREPARE THE ROBOT 

and TURN ON THE FLASHING LIGHTS 

10 and CLEAR ALL ITEMS 
11 and BEGIN A LOOP 

12 and MOVE FORWARD 

13 and EXIT IF SONAR distance value is less than 95 
14 and EXIT IF ANY BUMFER TOUCHED 

5 and REFEAT THIS LOOF 

16 and MOVE WITH BETA INTELLIGENCE 

17 and JUMP to the line called “BEGIN BETA HERE" 
18 and END (Task is 9% full.) 


OO NO U b GN = 


X BUMPER ACTIVATED MOTIONS (a Task) 


Does DEFINE A VARIABLE called "A" 

and FREFARE THE ROBOT 

and WAIT this many seconds 5 

and BEGIN A LOOF 

and HONK the horn for this many seconds 2 

and WAIT this many seconds 1.5 

and LIGHTS ROUTINE 

and MOVE TIMED FORWARD for this many seconds 1.5 
and MOVE TIMED BACKWARD for this many seconds 1.5 
10 and GO CLOCKWISE 

11 and WAIT this many seconds 1.5 

12 and GO COUNTERCLOCKWISE 

13 and WAIT this many seconds 1.5 

14 and STOF ALL MOTION 

15 апа HONK the horn for this many seconds 2 

16 and WAIT this many seconds 1.5 

17 and BEGIN A COUNTED LOOP called "A" beginning at 1 ending at 16 
18 and SET the variable "@#7802" equal to "A" 

19 and WAIT this many seconds .5 

z and REPEAT THIS COUNTED LOOF for the counter "A" 
21 and STOF ALL MOTION 

22 and SET the variable "G47801" equal to O 

23 and BEGIN A LOOP 

24 and EXIT IF ANY BUMFER TOUCHED 

< and REFEAT THIS LOOF 

26 and REFEAT THIS LOOF 

27 and END (Task is 17% full.) 
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e statment STRUCTURE TYPE at statement number STATEMENT NUMEER 


with the statment STRUCTURE TYFE at state еп} number STATEMENT NUMBER 


Z ERROR 
1 Does 
2 and 
2 Do 
4 and 
5 Do 
6 and 
7 and 
8 and 
9 and 

10 Do 

11 and 

12 Do 

13 and 

14 Do 

15 and 

16 and 

17 and 

18 and 

19 and 

20 Do 

21 and 

22 and 

23 and 

24 Do 

25 and 

26 ро 

27 and 

28 Do 

29 and 

SO and 

31 and 

S2 and 

Z ERROR 
1 Does 
2 and 
s Do 
4 and 
5 and 
6 Do 
7 and 
8 and 
9 Do 

10 and 

11 and 

12 Do 

13 and 

14 Do 

1S Do 

16 and 
17 Do 
18 Do 


h the statment STRUCTURE TYFE at statement number STATEMENT NUMZER 


19 and 
20 Do 


CHECK MATH FUNCTION (a Task) 


z DO CHECK if item <1> is in folder "VARIABLES" 
IF the RESULT IS "FAIL" then 
Z SAVE FOLDER ERROR 
OTHERWISE 
GET the page indexed by <1> in 
COPY from VAR NAME to «1» 
END of test 
Z DO NUMBER TEST on <2> 


IF the RESULT IS "FAIL" then 
Z DO CHECK if item <2> is in folder "VARIABLES" 
IF the RESULT 15 "FAIL" then 
Z SAVE NUMBER OR FOLDER ERROR 


OTHERWISE 
GET the page indexed by <2> in folder VARIABLES 


COPY from VAR NAME to «42» 
END of test 
END of test 
Z DO CHECK if item <3> is in folder "FUNCTIONS" 
IF the RESULT IS "FAIL" then 
Z SAVE FOLDER ERROR 
END of test 
Z DO NUMBER TEST on <4> 
IF the RESULT IS "FAIL" then А 
Z DO CHECK if item <4> is in folder "VARIABLES" 
IF the RESULT IS "FAIL" then 
7 SAVE NUMBER OR FOLDER ERROR 


OTHERWISE 
GET the page indexed by <4> in folder VARIABLES 


COPY from VAR NAME to <4> 
END of test 
END of test 
END (Task is 22% full.) 


folder VARIABLES 


CHECK STRUCTURES (a Task) 


BEGIN at page indexed by FIRST in folder STRUCTURES 
START a loop 
LABEL this line "START A LOOF" 
GET the page indexed by NEXT in folder STRUCTURES 
IF the PAGE IS EMPTY then 
LEAVE this loop 
END of test 
IF the CHECKED IS YES then 
GO to the line called "START A LOOF" 
END of test 
IF the STRUCTURE ТҮРЕ 15 "REFEAT" then 


Z SAVE STRUCTURE ERROR missing the statement "BEGIN" to go with t 


OTHERWISE 
IF the STRUCTURE ТҮРЕ 15 "END" then 


Z SAVE STRUCTURE ERROR missing the stetement "IF OF ELSE” te о 


OTHERWISE 
IF the STRUCTURE TYFE IS "NEXT" then 


Z SAVE STRUCTURE ERROR missing the statement "FOR" tc c^? wi 


OTHERWISE 
IF the STRUCTURE ТҮРЕ IS "UNTIL" then 


"ILI 


X CHARGER FINDER (a Task) 


Does WAIT this many seconds 20 
and PREFARE THE ROBOT . 
and INITIALIZE MEMORY 
and BEGIN A LOOF 
and PREFARE THE КОЕОТ 
and CLEAR ALL ITEMS 
and BEGIN A LOOP 
and MOVE FORWARD 
and EXIT IF ANY BUMPER TOUCHED 

10 and EXIT IF THE TAFE IS SENSED 

11 and REPEAT THIS LOOP 

12 and TEST IF the variable "R" is (2,4,5,42) "z" compared to O 

13 and EXIT THIS LOOP 

14 and END HERE 

15 and MOVE WITH BETA INTELLIGENCE 

16 and REPEAT THIS LOOF 

17 and FOLLOW TAFE 

18 and MAINTAIN CHARGE 

19 and END (Task is 74 full.) 
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X LOAD THE INTRODUCTION (a Task) 

1 Does REMARK that: "RESX say the introduction - new voice cards only!" 

2 and LOAD THE PHRASE called: "SAY THE INTRODUCTION" with phonemes: "H.EH1.! 
.L.01.U1.AH1.EH3. IS. Y. PA1. PM1. AE1. EHS. M. THY. UH1. 4H1. UH2. ER. B. E1. AY. Y. F. AH1. ЕН: 
.V.PA1.EH1.EH2. K. PRO. S. I1. N. T. EHI. EHZ. L. I1. IS. D. J. EHI. EHS. N. T. R. O1. U1. B. AH1.I 
T. STOP." 

5 and END (Task is 25% full.) 


X SIMPLE SIMON (a Task) 


Does BEGIN A LOOP 
and FREFARE THE ROBOT 
and INITIALIZE VARIABLES 
and BEGIN ñ LOOP 
and EXIT IF FRONT+REAR BUMPER PRESS 
and REFEAT THIS LOOP 
and TURN ON THE FLASHING LIGHTS 
and HONK the horn for this many seconds .1 
and BEGIN A LOOF 
10 and BEGIN A LOOP 
11 and EXIT IF ANY BUMFER TOUCHED 
12 and REPEAT THIS LOOP 
13 and EXIT IF FRONT+REAR BUMFER FRESS 
14 and WAIT this many seconds . 2 
15 and HONK the horn for this many seconds .1 
14 and ASSIGN A MOTOR CODE 
17 and TEST IF the variable "M" is (=,<,>,<>) ">" compared to "D" 
18 and EXIT THIS LOOP 
19 and END HERE 
20 and CALCULATE variable "M" = "M" (+,-,%,/) "+" 1 
21 and REPEAT THIS LOOP 
22 and WAIT this many seconds 3 
23 and BEGIN A COUNTED LOOF called "P" beginning at "N" ending at "M" 
24 and SET the variable "@#7802" equal to "ЕР" 
25 and WAIT this many seconds 1 
26 and REPEAT THIS COUNTED LOOF for the counter "P" 
27 and CLEAR ALL ITEMS 
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X SIMFLE SIMON (a Task) 


28 and REFEAT THIS LOOP 
29 and END (Task is 16% full.) 


1 COMFILE the BASIC statement <1> which means «2» (a Function) 


Does Z INCREMENT STATEMENT NUMEER 
and COPY from <1> to BASIC TEXT 
and COPY from «2» to MEANING 
and SAVE new page in SOURCE 
and END (Task is 2% full.) 
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Z COMPUTE 2 TO THE N-i , with N = <1> (а Function) 


1 Does COFY from 1 to PRODUCT 

2 and COFY from <1> to DIFFERENCE 

3 and START a loop 

4 Do IF the DIFFERENCE IS LESS THAN OR EQUAL TO 1 then 
s Do LEAVE this loop 

& and OTHERWISE 

7 Do MULTIFLY the PRODUCT by 2 

8 and SURTRACT the 1 from DIFFERENCE 
@ and END of test . 

10 and REFEAT this loop 

11 and END (Task is S% full.) 


Z DELAY for this many loops: <1> (а Function) 


1 Does COFY from O to COUNTER 

2 and START a loop 

Do Z INCREMENT. the COUNTER 

4 and IF the COUNTER IS <1> then 
s Do LEAVE this loop 

6 and END of test 

7 and REFEAT this loop 

8 and END (Task is 3% full.) 


Z DO CHECK if item <1> is in folder <2> (a Function) 


1 Does ASSIGN the <2> to ASSIGNED FOLDER 

2 and WHEN folder ASSIGNED FOLDER DOES NOT CONTAIN <1> then 
s Do COFY from "FAIL" to RESULT 

4 and COPY from <1> to ITEM NAME 

5 and COFY £rom «2» to FOLDER NAME 

& and OTHERWISE 

7 Do COPY from "PASSED" to RESULT 

8 and END of test 

9 and END (Task is 5% full.) 


ver 


Z ERROR CHECK STRUCTURES (a Task) 


21 Do 
ith the 
22 and 
4 Do 
24 Do 
25 and 
26 Do 
MENT TYFES 
27 and 
28 and 
29 and 
SO and 
51 and 
S2 and 
S3 and 
34 and 
Z ERROR 
1 Does 
2 and 
ӯ Do 
4 and 
Е ро 
6 and 
7 and 
8 and 
9 and 
10 Do 
11 and 
iz Do 
15 and 
14 Do 
15 and 
16 and 
17 and 
18 and 
19 and 
20 Do 
21 and 
aa Do 
23 and 
24 Do 
z and 
26 and 
27 and 


and 


Z SAVE STRUCTURE ERROR missing the statement "DO" to C 


statment STRUCTURE TYFE at statement number STATEMENT NUMBER 
OTHERWISE g 
IF the STRUCTURE TYFE IS "EXIT" then 
Z LOOK FOR BEGIN 
OTHERWISE 3 ү 
GET the page indexed by STRUCTURE TYPE in folder STi 


Z LOOK FOR MATCHING STATEMENT 
END of test 
END of test 
END of test 
END of test 
END of test 
REFEAT this loop 
END (Task is 25% full.) 


CHECK THE FOR STATEMENT (a Task) 


Z DO CHECK if item <1> is in folder "VARIABLES" 
IF the RESULT IS "FAIL" then 
Z SAVE FOLDER ERROR 
OTHERWISE 
GET the page indexed by <1> in folder VARIABLES 
COPY from VAR NAME to «12 
END of test 
7 DO NUMBER TEST on <2> 
IF the RESULT IS "FAIL" then 
Z DO CHECK if item <2> is in folder "VARIABLES" 
IF the RESULT IS "FAIL" then 
Z SAVE NUMBER OR FOLDER ERROR 
OTHERWISE 
GET the page indexed by <2> in folder VARIABLES 
COPY from VAR NAME to <2> 
END of test 
END of test 
Z DO NUMBER TEST on <3? 
IF the RESULT IS "FAIL" then 
I DO CHECK if. item <3> is in folder "VARIABLES" 
IF the RESULT IS "FAIL" then 
Z SAVE NUMBER OR FOLDER ERROR 
OTHERWISE 
GET the page indexed by «35 in folder VARIABLES 
COPY from VAR NAME to <3> 
END of test 
END of test 
END (Task is 19% full.) 


z ERROR CHECKING? (a Task) 


1 Does CARRIAGE return 
2 and DISFLAY the "Would you lik 


< 


з and LIMIT the input for ERROR CHECK to a maximum of 1 
4 and END (Task is 7% full.) 


e your robot script checked for errors? (Y/N 


z FIND the label called <1> (a Function?) 


Does BEGIN at page indexed by FIRST in folder LOOFS 


1 

2 and START a loop 

3 Do GET the page indexed by NEXT in folder LOOFS 

4 and IF the FAGE IS EMFTY then 

S Do IF the ERROR CHECK IS YES then 

6 Do 7 SAVE STRUCTURE ERROR missing the statement "CALL" to go wit 
the statment "JUMP" at statement number ТЕМЕ STATEMENT NUMSER 

7 and LEAVE this loop 

8 and END of test 

9 and LEAVE this loop 

10 and END of test 

11 and TAKE this many characters 1 from STRUCTURE TYFE 

2 and IF the FRONT IS "L" then 

15 ро IF the BACK IS <1> then. 

14 Do COPY from STATEMENT NUMBER to LABEL STATEMENT МОМЕЕ А 
15 ага GET the page indexed by TEMF STATEMENT NUMEER in folder SOURT! 
16 and CUT the BASIC TEXT after "GOTO " 

17 and PASTE the FRONT in front of LABEL STATEMENT NUMBER 
18 and COPY from FRONT to BASIC TEXT 

19 and REPLACE this page in folder SOURCE 
20 and LEAVE this loop 
21 and END of test 
22 and END of test 
25 and REFEAT this loop 


24 and END (Task is 14% full.) 


Z GET PREVIOUS BEGIN (a Task) 


Does GET the page indexed by THIS in folder LOOFS 


1 

2 and IF the STRUCTURE TYFE IS NOT "BEGIN" then 

3 Do START a loop 

& Do GET the page indexed by PREVIOUS in folder LOOFS 
S and IF the FAGE IS EMFTY then 

6 Do LEAVE this loop 

7 and END of test 

B and IF the STRUCTURE ТҮРЕ IS "BEGIN" then 
9 Do LEAVE this loop f 

10 and END of test 

11 and REFEAT this loop 

12 and END of test 


Z and END (Task is 6% full.) 


Z GET PREVIOUS IF OR ELSE (a Task) 


Does COPY from EMFTY to STRUCTURE TYPE 


1 

2 and GET the page indexed by THIS in folder LOOFS 

S and IF the STRUCTURE TYFE IS NOT "IF" then 

4 Do IF the STRUCTURE TYFE IS NOT "ELSE" then 

З ро START a loop 

5 Do GET the page indexed by PREVIOUS in folder LOOPS 
7 and IF the PAGE IS EMFTY then 

8 Do LEAVE this loop 

9 and OTHERWISE 

10 Do IF the STRUCTURE TYFE IS "IF" then 

11 Do LEAVE this loop 

12 and OTHERWISE 

$3 Do IF the STRUCTURE TYPE IS "ELSE" then 
14 Do LEAVE this loop 

15 and END of test 

16 and END of test 

17 and END of test 

18 and REPEAT this loop 

19 and END of test 
20 and END of test 


21 and END (Task is 10% full.) 


Z INCLUDE at <1> the statement <2> which means <3> (a Function) 


1 Does COFY from <1> to STATEMENT NUMBER 
2 and COFY from «2» to BASIC TEXT 
3 and COFY from <3> to MEANING 

4 and SAVE new page in SOURCE 
S and END (Task is 2%. full.) 


Z INCREMENT the <1> (a Function) 


1 Does ADD the 1 and «41» 
2 and COPY from SUM to «41» 
S and END (Task is 1Z full.) 


Z INCREMENT STATEMENT NUMBER (a Task) 


1 Does ADD the STATEMENT NUMBER and STATEMENT NUMBER INCREMENT VALUE 
2 and COFY from SUM to STATEMENT NUMEER 
3 and END (Task is 1% full.) 


Z INITIALIZE LEGAL VARIABLES (a Task) 


Dces BEGIN at page indexed by FIRST in folder LEGAL VARIABLES 


and START a loop 


Do GET the page indexed by NEXT in folder LEGAL VARIABLES 


1 

2 

3 

4 and IF the PAGE IS EMPTY then 
5 Do LEAVE this loop 

é and END of test 

7 and IF the USED IS NO then 

8 Do LEAVE this loop 

9 and OTHERWISE 

10 Do COPY from NO to USED 

11 and REFLACE this page in folder LEGAL VARIABLES 
12 and END of test 


13 and REFEAT this loop 
14 and END (Task is 6X full.) 


Z INSURE ARM PULSE SUBROUTINE IS (a Task) 


1 Does WHEN folder SOURCE DOES NOT CONTAIN 43,400 then 
STATEMENT NUMBER to HERE 


2 Do COFY from 


S and Z INCLUDE at 3,400 the statement "DELAY 1000: @#7807=#90" which mean: 
"SET STATUS RYTE" 

4 and Z INCLUDE at 72,410 the statement "@#7806=#70" which means "ARM FOWE; 
ON oe 

= and Z INCLUDE at 3,420 the statement "G478056-4FO" which means "SET ARM 1 
R DRIVE" : 

6 and Z INCLUDE at Z,420 the statement "FOR I=1 ТО Р" which means "BEGIN | 
LOOF" 

7 and Z INCLUDE at 3,440 the statement "@D=M:@D=N" which means "PULSE THE 
RM u 

8 and Z INCLUDE at 3,450 the statement "NEXT I" which means “REFEAT THIS 1 
OF м 

9 and Z INCLUDE at 3,460 the statement "G47807-490:6457806-4BO" which mean: 
"TURN OFF ARM FOWER" 

10 and Z INCLUDE at 3,470 the statement "RETURN" which means "RETURN TO THE 
MAIN PROGRAM" 

11 and COFY from HERE to STATEMENT NUMBER 

12 and END of test 


13 and END (Task is 36% full.) 


Z INSURE BETA SUBROUTINE IS (a Task) 


1 Does WHEN folder SOURCE DOES NOT CONTAIN 3,160 then 


the statement 


"Р=@#7800" which means "BUMFER FREE 


2 Do COFY from STATEMENT NUMBER to ANSWER 
5 and Z INCLUDE at 2,150 

Ер“ 
4 and Z INCLUDE at 2,170 


ONAR TREATED AS BUMFER #1" 


the statement 


S and Z INCLUDE at 3,180 the statement 
ENCE BLOCK" 

6 and Z INCLUDE at 3,190 the statement 
RY ACTION" 

7 and Z INCLUDE at 3,200 the statement 
OM ACTION" 

8 and Z INCLUDE at 3,210 the statement 
O 3200" which means "FICK ANOTHER" 

9 and 2 INCLUDE at 3,220 the statement 
10 and WAIT this many seconds Z2 


11 and IF the SONAR NEEDED 


IS YES then 


"IF P=255 THEN P251" which means 
"VzG(N*F)" which means "CHECK EXPER 
"IF V<>#FF GOTO 3220" which means " 
"VzRND(1,14)" which means "Fick RA. 
“IF (V3) ОК (V=12) OR (V=(O+P)) CC 


"e47802-2V" which means "TRY ACTION" 


“Maat 


Z INSURE BETA SUBROUTINE IS 


12 Do 
ZERO" 
13 and 
14 and 

ION" 

15 and 

16 ре 

ST” 

17 and 

18 and 
which means 
19 and 

ZO and 

21 and 

22 and 

23 and 

UL" | 

24 and 

25 and 

26 and 

27 and END 


Z COMPILE the 


(a Task) 


BASIC statement 


"D=0" which means "DISTANCE EQUAL 


Z COMPILE the BASIC statement 


Z COMPILE the 


OTHERWISE 


Z COMPILE the 


END of test 


Z COMFILE the BASIC statement 


"NOT SUCCESSFUL" 


z COMPILE 
Z COMFILE 
FASTE the 
Z COMFILE 


Z INCLUDE 


Z INCLUDE 
COFY from 


(Task is 71% 


the BASIC statement 
the BASIC statement 
in front of 


"GOTO " 


the BASIC statement 


BASIC statement 


BASIC statement 


"@ (N+P) =" 
"CLEAR" 


"LINK 


"@#7802=V" 


"D=200" 


#1800" 


which means 


which means 
which means 
RETURN STATEMENT NUMBER 
FRONT which means 


which means 


"BACK 


which means 


"CALL = 


“CONTINUE 


"CANCEL SONA? 


"IF (@#7800<>#FF) OR (D<95) GOTO Z 


"SUCCESSFUL " 
"CLEAR ALL ITEMS 


TO MAIN FRO 


at 3,360 the statement "G(O*P)zV" which means "NOT SUCCE 


at 3,370 the statement 
ANSWER to STATEMENT NUMBER 


END of test 


full.) 


Z INSURE END OF PROGRAM 1S THERE (a Task) 


“БОТО 3200" 


which means 


1 Does WHEN folder SOURCE DOES NOT CONTAIN 2,999 then 


2 


3 
4 


Do 
and 


and END 


END 


END of test 
(Task is 1% full.) 


OF PROGRAM. 


Z INSURE FORT 7801 SUBROUTINE IS (a Task) 


1 Does WHEN folder SOURCE DOES NOT CONTAIN 3,100 then 
STATEMENT NUMBER to HERE 


2 
š 
E aia 


Do 
and 


and 
and 
and 
and 
e#7801" 
and 
and 
and 
and 
and 


and END 


COFY from 
Z INCLUDE 


INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 


N N N MN 


Z INCLUDE 
Z INCLUDE 
Z INCLUDE 
COPY from 


at 3,100 the statement "Ш=@#7801" which means "TUFN CN А 
at 5.105 the statement "U-U OR X" which means "" 

at 3,110 the statement "@#7801=U" which means "" 

at 3,115 the statement "RETURN" which means "" 

at 3,120 the statement “U=@#7801" which means "TURN OFF 
at 2,125 the statement "U-U AND X" which means "" 

at 3,130 the statement "&847801-U" which means "" 

at 3,125 the statement "RETURN" which means "" 


HERE to STATEMENT 


END of test 
(Task is 


24% 


full.) 


NUMBER 


2 INSURE RANDOM TURN SUBROUTINE (a Task) 


1 Does WHEN folder SOURCE | DOES NOT CONTAIN 3,040 then 
2 Do COFY from STATEMENT NUMBER to HERE 
Z INCLUDE at 3,040 the statement "VsRND(1,14)" which means “RANDOM ` 


5 and 

RN SUBROUTINE" 

4 and Z INCLUDE at 3,045 the statement "IF (V=3) OR (V=12) GOTO 5040" whi: 
means "" 


5 and z INCLUDE at 3,050 the statement "RETURN" which means 
& and COPY from HERE to STATEMENT NUMBER 

7 and END of test 

8 and END (Task is 13* full.) 


Z INSURE RANDOM WAIT SUBROUTINE (a Task) 


1 Does WHEN folder SOURCE DOES NOT CONTAIN 3,070 then 
2 Do COFY from STATEMENT NUMBER to HERE 


3 and Z INCLUDE at 3,070 the statement "T-RND(1,W)" which means "RANDOM Wí 
T SUBROUTINE” 

4 and Z INCLUDE at 3,075 the statement "GOSUB 3000" which means p^ 

= and 7 INCLUDE at 3,080 the statement "RETURN" which means "= 

6 and COPY from HERE to STATEMENT NUMBER 

7 and Z INSURE WAIT SUBROUTINE IS 

B and END of test ; 

9 and END (Task is 12% full.) 


Z INSURE VOICE SUBROUTINE IS (a Task) 


1 Does WHEN folder SOURCE DOES NOT CONTAIN 5,500 then 
2 Do COFY from STATEMENT NUMBER to HERE 


S and Z INCLUDE at 3,500 the statement "Y=TOP+500+A: BV=P" which means "STC 
E THE PHONEME" 

4 and Z INCLUDE at 3,510 the statement wA=A+1" which means "" 

S and Z INCLUDE at 3,520 the statement "RETURN" which means "" 

ó and COFY from HERE to STATEMENT NUMBER 

7 and END of test 

8 and END (Task is 11% full.) 


Z INSURE WAIT SUBROUTINE IS (a Task) 


1 Does WHEN folder SOURCE DOES NOT CONTAIN 3,000 then 
2 Do COPY from STATEMENT NUMBER to HERE 


3 and Z INCLUDE at 3,000 the statement "FOR S-1 TO T" which means “WAIT T 
ECONDS SUBROUTINE" З 
4 and 7 INCLUDE at 5,005 the statement "DELAY 1000" which means "" 

5 and Z INCLUDE at 3,010 the statement "NEXT S" which means "" 

& and Z INCLUDE at 5,015 the statement "RETURN" which means "" 

7 and COFY from HERE to STATEMENT NUMI ER 

B and END of test 

9 and END (Task is 14% full.) 


Z LOAD SONAR (a Task) 


DISPLAY the "Now loading the sonar subroutine..." 


1 Does 

2 and FRINT the "" 

3 and BEGIN at page indexed by FIRST in folder SONAR 
4 and START a loop 

9 Do GET the page indexed by NEXT in folder SONAR 
é and IF the PAGE 15 EMFTY then 

7 Do LEAVE this loop 

B and END of test 

9 and FASTE the SONAR ID in front of " " 
10 and FASTE the FRONT in front of BASIC TEXT 
11 and OUTFUT from FRONT using format DEFAULT 
12 and CARRIAGE return 
13 and DISFLAY the "s$" 
14 and PRINT the "" 
15 and Z DELAY for this many lcops: Š 
16 and REFEAT this loop 


17 and Z DELAY for this many loops: 10 

18 and FRINT the "" 

19 and OUTPUT from "RUN" using format DEFAULT 
20 and CARRIAGE return 

21 and Z DELAY for this many loops: 50 

22 and OUTFUT from "NEW#1841" using format DEFAULT 
23 and CARRIAGE return 

24 and Z DELAY for this many loops: 60 

25 and OUTFUT from "NEW" using format DEFAULT 
26 and CARRIAGE return 

27 and DISFLAY the "" 

28 and CARRIAGE return 

29 and PRINT the "" 

30 and END (Task is 17% full.) 


Z LOAD VOICE SUBROUTINE (a Task) 


Does CARRIAGE return 
and DISPLAY the "Now loading the voice subroutine..." 
and CARRIAGE return 
and PRINT the "" 
BEGIN at page indexed by FIRST in fclder VOICE SUBROUTINE 


and START a loop 
Do GET the page indexed by NEXT in folder VOICE SUBROUTINE 


OO 40 C b GI N = 
t 
J 
a 


and IF the PAGE 15 EMFTY then 
Do LEAVE this loop 
10 and END of test 
11 and OUTPUT from VOICE ID using format DEFAULT 
12 and CARRIAGE return 
13 and DISFLAY the "£z" 
14 and FRINT the "" 
15 and Z DELAY for this many loops: 10 
16 and REFEAT this loop 


17 and Z DELAY for this many loops: 10 

18 and Z INSURE VOICE SUBROUTINE IS 

19 and PRINT the "" 

ZO and OUTFUT from "е#2000= #05: E#2001=#0F: C#2002=#35: Є#2005=#25: E# 2004-807" U 
ng format DEFAULT 

21 and CARRIAGE return 

22 and Z DELAY for this many loops: 10 

23 and OUTFUT from "G42005-23s21:G8ü70056-81F:G42007-318: G3 ZOOB-475:698»DOOS-877:€^ 


OA=#1E" using format DEFAULT 


z L 
24 
25 
26 


27 


z L 


OU + (I N YH 


оо ч 


z L 


i 
2 
3 
4 
5 
6 
go 
7 
8 


OAD VOICE SUBROUTINE (a Task) 


and CARRIAGE return 
and 2 DELAY for this many loops: 10 


and OUTPUT from "RNZOOB-4O9:94200C241E: e#200D=#3F: 648780B7 84715782000: LINK 
FSO" using format DEFAULT 


and CARRIAGE return 

and Z DELAY for this many loops: 10 
and DISFLAY the "" 

and CARRIAGE return 

and FRINT the "" 

and END (Task is 32% full.) 


OOK FOR BEGIN (a Task) 


Does COPY from STATEMENT NUMEER to HERE 
and START a loop 


Do GET the page indexed by PREVIOUS in folder STRUCTURES 


and IF the PAGE IS EMFTY then 
Do GET the page indexed by HERE in folder STRUCTURES 
and Z SAVE STRUCTURE ERROR missing the statement "BEGIN" to go with ' 
tatment "EXIT" at statement number HERE 
and LEAVE this loop 
and END of test k 
and IF the STRUCTURE TYPE IS "BEGIN" then 
Do GET the page indexed by HERE in folder STRUCTURES 
and COPY from YES to CHECKED 
and REPLACE this page in folder STRUCTURES 
and LEAVE this loop 
and END of test 
and REPEAT this loop 


and END (Task is 9% full.) 
OOK FOR MATCHING STATEMENT (a Task) 


Does COPY from STATEMENT NUMBER to HERE 
and START a loop 


Do GET the page indexed by NEXT in folder STRUCTURES 
and IF the PAGE IS EMFTY then 
Do GET the page indexed by HERE in folder STRUCTURES 
and Z SAVE STRUCTURE ERROR missing the statement MATCHING STATEMENT t 
with the statment STATEMENT TYFES ID at statement number STATEMENT NUMBER 
and LEAVE this loop 
and END of test 
and IF the CHECKED IS NOT YES then 
Do IF the STRUCTURE TYFE IS MATCHING STATEMENT then 
Do COFY from YES to CHECKED 
and REFLACE this page in folder STRUCTURES 
and GET the page indexed by HERE in folder STRUCTURES 
and COFY from YES to CHECKED 
and REPLACE this page in folder STRUCTURES 
and LEAVE this loop 
and END of test 
and END of test 
and IF the STATEMENT TYFES 1D 318 "IF" then 
Do IF the STRUCTURE TYFE IS "ELSE" then 
Do GET the page indexed by HERE in folder STRUCTURES 
and z SAVE STRUCTURE ERROR missing the statement MATCHING STETEMEN 
æ ر‎ 


go with the statment STATEMENT TYFES ID at stat 


ement number STATEMENT NL 


4 


Р 


Z LOOK FOR MATCHING STATEMENT (a Task) 


25 and LEAVE this loop 
24 and END of test 

25 апа END of test 

25 and REFEAT this loop 


27 and END (Task is 16% full.) 


Z OUTFUT FAGE NUMBER (a Task) 


Does PASTE the "page " in front of FASE COUNT 
and OUTPUT from SFACES using format 36 

and OUTPUT from FRONT using format DEFAULT 
and CARRIAGE return à 

and CARRIAGE return 

and END (Task is 2% full.) 


OU b GN e 


Z OUTPUT PROGRAM HEADING (a Task) 


Does CARRIAGE return 
and OUTPUT from " Stmt 4" using format 10 
and OUTFUT from " Tiny BASIC Text " using format ZO 
and OUTFUT from " Meaning of Text" using format 235 


and CARRIAGE return 
and CARRIAGE return 
and END (Task is 8* full.) 


NOG PWN & 


Z PATCH UF END STATEMENTS (a Task) 


Does COPY from STATEMENT NUMBER to END STATEMENT NUMBER 


and Z GET PREVIOUS IF OR ELSE 
DELETE the page indexed by STATEMENT NUMBER from folder LOOFS 


1 

2 

S and 

4 and IF the STRUCTURE TYFE IS "IF" then 

5 Do GET the page indexed by STATEMENT NUMBER in folder SOURCE 
6 and CUT the BASIC TEXT after "GOTO " 

7 and PASTE the FRONT in front of EXIT STATEMENT NUMEER 

8 and COPY from FRONT to BASIC TEXT 

9 and REPLACE this page in folder SOURCE 

10 and OTHERWISE i 

11 Do IF the STRUCTURE TYPE IS "ELSE" then 

12 Do SUBTRACT the 25 from STATEMENT NUMBER 

13 and COPY from DIFFERENCE to STATEMENT NUMBER 

14 and PASTE the "GOTO " in front of END STATEMENT NUMBER 

iS and Z COMPILE the BASIC statement FRONT which means "SKIP THE ELSE" 
16 and END of test 

17 and END of test 


18 and COPY from END STATEMENT NUMEER to STATEMENT NUMBER 
19 and END (Task is 13% full.) 


z PATCH UF EXIT STATEMENTS (a Task) 


Does COFY from STATEMENT NUMBER to EXIT STATEMENT NUMBER 


and START a loop 
Do GET the page indexed by NEXT in folder LOOFS 


1 

2 

S 

4 and IF the FAGE IS EMFTY then 

5 Do LEAVE this loop 

6 and OTHERWISE 4 

7 Do IF the STRUCTURE TYFE IS "EXIT" then 

8 Do GET the page indexed by STATEMENT NUMBER in folder SOURCE 
9 and CUT the BASIC TEXT after "GOTO " 
10 and PASTE the FRONT in front of EXIT STATEMENT NUMBER 
11 and COPY from FRONT to BASIC TEXT 
12 and REFLACE this page in folder SOURCE 
13 and DELETE the page indexed by STATEMENT NUMBER from folder LOOFS 
14 and OTHERWISE 
15 Do LEAVE this loop 
16 and END of test 
17 and END of test 
18 and REPEAT this loop 


19 and COPY from EXIT STATEMENT NUMBER to STATEMENT NUMBER 
ZO and END (Task is 10X full.) 


Z PATCH UF JUMP STATEMENTS (a Task) 


Does BEGIN at page indexed by FIRST in folder LOOF'S 


1 

2 and START a loop 

> Do GET the page indexed by NEXT in folder LOOFS 

4 and IF the PAGE IS EMFTY then 

S Do LEAVE this loop 

6 and END of test 

7 and TAKE this many characters 1 £rom STRUCTURE TYFE 

B and IF the FRONT IS "J" then 

9 Do COPY from STATEMENT NUMBER to TEMP STATEMENT NUMBER 
10 and COPY from BACK to LABEL NAME 
11 and Z FIND the label called LABEL NAME 
12 and GET the page indexed by ТЕМЕ STATEMENT NL'MEER in fclder LOCFS 
13 and DELETE the page indexed by THIS from folder LOOFS 
14 and END of test 
15 and REFEAT this loop 


16 and END (Task is 8% full.) 


2 SAVE FOLDER ERROR (a Task) 


1 Does IF the ERROR CHECK 15 YES then 

2 Do ADD the STATEMENT NUMBER and 10 

S and COPY from SUM to LINE NUMBER 

4 and PASTE the "Folder " in front of FOLDER NAME 
© and PASTE the FRONT in front of " doesn't contain the item " 
6 and PASTE the FRONT in 4ront of ITEM NAME 

7 and COPY from FRONT to ERROR MESSAGE 

8 and Z INCREMENT the ERROR NUMBER 

9 and SAVE new page in ERRORS 

10 and END of test 

11 and END (Task is 9% full.) 


Z SAVE NUMBER OR FOLDER ERROR (a Task) 


Does IF the ERROR CHECK IS YES then 


1 

2 Do ADD the STATEMENT NUMBER and 10 

S and COPY from SUM to LINE NUMBER 

4 and PASTE the ITEM NAME in front of " should be a number or be contains 
in the folder " 

5 and FASTE the FRONT in front of FOLDER NAME 

é and COPY from FRONT to ERROR MESSAGE 

7 and Z INCREMENT the ERROR NUMEER 

8 and SAVE new page in ERRORS 

9 and END of test 

0 


and END (Task is 10% full.) 


مم 


z SAVE STRUCTURE ERROR missing the statement <1> to go with the statment Sa? | 


statement number «3» (a Function) 


Does PASTE the "The " in front of «2» 


1 

2 and PASTE the FRONT in front of " statement is missing the " 
3 and PASTE the FRONT in front of <1? 

A and PASTE the FRONT in front of " statement" 
S and COPY from FRONT to ERROR MESSAGE 

& and COFY from <3> to LINE NUMBER 

7 and Z INCREMENT the ERROR NUMBER 

8 and SAVE new page in ERRORS 

9 and IF the «1» IS NOT "CALL" then 

10 Do COFY from YES to CHECKED з 
11 and REPLACE this page in folder STRUCTURES 
12 and END of test 


13 and END (Task is 11% full.) 
ZZ AVAIL TASK (a Task) 

1 Does END (Task is 1% full.) 
ZZ AVAIL TASK #1 (a Task) 

1 Does END (Task is 1% full.) 
ZZ AVAIL TASK #10 (a Task) 


1 Does END (Task is 1% full.) 


ZZ 


ZZ 


ZZ 


AVAIL TASK 
Does END 
AVAIL TASK 
Does END 
AVAIL TASK 
Does END 
AVAIL TASK 
Does END 
AVAIL TASK 
Does END 
AVAIL TASK 
Does END 
AVAIL TASK 
Does END 
AVAIL TASK 
Does END 
AVAIL TASK 
Does END 
AVAIL TASK 
Does END 
AVAIL TASK 


Does END 


#11 (a Task) 
(Task is 1% 
#12 (a Task) 
(Task is 1% 
#13 (a Task) 
(Task is 1% 
#14 (a Task) 
(Task is 1% 
#2 (a Task) 
(Task is 1% 
#3 (a Task) 
(Task is 1% 
#4 (a Task) 
(Task is 1% 
#5 (a Task) 
(Task is 1% 
46 (a Task) 
(Task is 1% 
#7 (a Task) 
(Task is 1% 
#8 (a Task) 


(Task is 1% 


fu11.) 


full.) 


full.) 


full.) 


full.) 


full.) 


full.) 


#011.) 


full.) 


full.) 


full.) 
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A. INTRODUCTION 


Congratulations on your purchase of Robot Control Language(tm) 
with Savvy(R) - RCL(tm), for short. Developed jointly by 
Robot Corporation and Excalibur Technologies Corporátion,-RCL is 
more than just another programming language. RCL is a complete 
software development system that virtually eliminates the 
language barrier between robots and people by allowing you to 
program your robot using common English words and phrases. 


This Tutorial introduces you to the fun of programming with RCL 
and explains some of the terms you need to know as you begin 
creating your own RCL programs. As with other Tutorials, we 
suggest you use this one while seated at your computer, with 
your RB5X nearby, SO that you can do the examples as we go 
along. For details about RCL not covered in this Tutorial, see 
the RCL Programmer's Manual that comes with this package. 


WHAT YOU GET WHEN YOU ORDER RCL WITH SAVVY 


То start, let's look at what you get when you order the RCL 
package. 


In addition to this Tutorial, you receive a Robot Control 


MÀ MÀ — — , e ÜÜ  -.-. 


Language with Savvy Programmer's Manual and the Savvy Personal 
Language Reference Folio. (We will discuss the relationship of 
RCL to Savvy a little later in this Tutorial.) 

We also provide the Savvy circuit card, which you need to use 
RCL and which fits into Slot 7 insice your Apple computer. 


If you ordered RCL I, you received one RCL diskette, which 
contains RCL with Savvy and some initial robot tasks we've 
developed; a Savvy One Master diskette, which enables you to use 
Savvy alone for other purposes on your Apple; and a "Let's Use 
Savvy" diskette. With this system, you store the robot tasks 
you create on the RCL diskette; it is a good idea to make 
several copies of the diskette before you begin designing robot 
tasks so you will have additional diskette space for storing the 
robot tasks you develop later. 


If you ordered RCL II, you received ore RCL diskette, which 
contains RCL and the initial robot tasks; спе Savvy Pro Master 
diskette, which you will use with the RCL diskette (or with a 
blank data disk, if you wish to use Savvy with your Apple for 
other purposes); a Savvy "Demo" diskette; and a "Let's Use 
Savvy" diskette. 


Copyright 1984 All rights reserved. А-1 


The RCL I diskette or the Savvy Pro and RCL II diskettes should 
always be in the disk drives when RCL is in use. They are 
Standard floppy diskettes; the Savvy manual tells you how to 
handle and care for them. 


RCL I has everything for Programming robot tasks that RCL II has 
except the Savvy "Suspend" and Selective file transfer 
capabilities, which were excluded to provide more Space in the 


one-diskette System. For more information on these capabilities, 
consult your Savvy Personal Language Reference Folio. 

WHAT YOU NEED TO GET STARTED 

RCL I 


To set up RCL I, you need the following hardware items: 


Most important, of course, is one RB5X robot, which comes with 
its own Reference Manual. 
22-5-2306 папоаі 


You also need an Apple II+ or Apple IIe computer with a single 
disk drive and controller 


To establish communication between your computer and the RB5X, 
you must have a serial communications card -- either Apple's 
Super Serial Card or California Computer Systems (CCS) 7710A. 


You also need an RS-232 cable for loading the RCL programs you 
write using your Apple into the RBSx. The connector on one end 
should be a 25-pin D male connector. (If this sounds lite Greek 
to you, ask your computer dealer for help in assuring that you 
have the right cable.) This goes into Port 1 on the back of your 
RB5X. The other end must match the RS-232 port on your Apple 
Serial card. 


Insert the CCS 7710A or the Super Serial card in Slot 1 in your 
Apple and set the card's baud rate at 1200. Slot l is commonly 
used for a printer; when using RCL, your computer communicates 
with RB5X as though it were a printer, Therefore, when loading 
robot tasks into RBSX you cannot also have a printer connected to 
your Apple. 


When using the CCS 7710A card you must also make the following 
modifications to establish proper serial communication: 
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1. Switch RS-232 lines 2 and 3 (inside the robot). This is 
done by positioning the switch on the RB5X's interface 
panel circuit board up, instead of down (normal). 


2. Connect pin 4 on the CCS card to pin 6 on the CCS card. 


3. Make sure there is no connection between pin 25 on the CCS 
card and the robot. Severe damage to the card and RB5X 
may result from this connection. 


please see your RBSX dealer if you need help making these cable 
modifications. 


You may want to use an 80-column display card because it allows 
you to use both upper and lower case letters, making the screen 
easier to read. If you have an Apple IIe, any brand of card will 
do. If you have an Apple II+, you must use the Videx Videoterm 
card. This card should be inserted in Slot 3 of your Apple. 
Refer to pages 3-4 of your Savvy manual for further information 
on hardware set up. 


RCL II 


RCL II has the same hardware requirements as RCL I, with one 
difference. To use this system, you need from two to four disk 
drives or, optionally, a hard disk drive. 


RB5X OPTIONS 


You might want to add options -- such as the RB arm or 
voice/sound synthesis -- to your RBSX to make your programming in 
RCL more fun and more challenging. The sample program we use in 
this Tutorial, for example, works with an RB5X that has voice 
capability. 


WHAT EXACTLY IS RCL WITH SAVVY? 


RB5X's native tongue is Tiny BASIC. But as we all know, computer 
languages such as Tiny BASIC can be difficult for people to 
learn. There are complicated codes and symbols to memorize, anc 
every character you enter must be in its proper place. No extra 
Spaces, no transposed letters. Otherwise, it isn't Tiny BASIC 
and RB5X can't understand what you want it to do. And while Tiny 
BASIC is easier to learn than many programming languages, it can 
still be frustrating. 


So RCL's primary responsibility is to act as a foreign language 


interpreter, translating what you Say in your own words into the 
Tiny BASIC in which your RB5X is fluent. 
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RCL is based on Excalibur's personal language system called 
Savvy. So to understand RCL, you must have at least some 
understanding of Savvy. 


Think of it this way: RCL is a subset of Savvy; it exists within 
Savvy, as your house exists within its neighborhood.  RCL has its 
own personality, its own unique style of architecture. But it 
also draws some of its characteristics from its environment, from 
its neighborhood; in this case, from Savvy. 


So what is Savvy? It really is a lot of things. It is an 
operating system -- you don't need CP/M or Apple DOS or any other 
operating system. 


Savvy is a Virtual Resources Manager that lets your small 
microcomputer run huge programs as if it were a much larger 
machine. 


Savvy is a language. More specifically, Savvy learns your 
language from you -- whether it is English, French, or Turkish. 
But since it needs some language to start with, Savvy learns an 
important primary vocabulary at the factory. 


Savvy is an associative memory, which lets the system place items 
in its memory based on their description; therefore, the system 
will find what you want if you describe it. You don't have to 
assign or ask for an actual memory address, which is a 

' complicated programming activity. 


Savvy is an automatic program generator, which allows it to write 
"families" of programs for you, designing them for specific 
purposes. 


But, most important, Savvy is a personality. You communicate 
with it using words instead of baffling, hard-to-remember codes. 


Using Savvy as its basis, RCL then learns your language.from you 
and offers RB5X owners a flexible, interactive, conversational 
method of writing programs for the robot. 


In addition to learning your language from you, RCL also tries to 
figure out what you mean by what you enter at the keyboard. For 
example, if you enter the words MVOE FOREWARD on your computer 
keyboard exactly as we have written here, errors and all, RCL 
Searches its memory trying to figure out what you really intended 
to enter. It then presents you with as many phrases as it has 
that resemble MVOE FOREWARD and asks you which one you want: 
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I'm not sure what MVOE FOREWARD refers to. 
Is it one of these: 
l. MOVE FORWARD 
2. MOVE BACKWARD 
3. MOVE RANDOMLY 
4. or None of the above? 
Please type the number of the correct answer: 


RCL also comes with some standard tasks that you can incorporate 
into the programs you write yourself for your RB5X. (MOVE 
FORWARD is one of those tasks.) 


So RCL is an intelligent software development system -- able to 
draw conclusions, willing to overlook your spelling errors, and 
ready to learn your language from you -- that is just perfect for 
use with the RB5X Intelligent Robot! 


SOME USEFUL DEFINITIONS 


Before we actually step you through a sample program, there are 
some important definitions that will help you to use RCL. 


Robot Tasks and Primary Tasks 


In RCL, a "robot task" is a program that you write in order to 
train RB5X to do something -- for example, move through the 

' living room using its sonar and tactile sensors to detect objects 
in its way. 


A robot task is composed of smaller, primary tasks, some of which 
we have already written for you to use in the composition of your 
robot tasks and some of which you will create yourself. So unlike 
other languages where you have routines and subroutines as 
distinct from procedures and functions, in RCL, everything is a 
task. A robot task simply comprises a group of shorter tasks, 
one nested neatly inside the other. 


A list of the provided RCL tasks appears at the end of this 
Tutorial, in Appendix 3. Take a look now at this list. You will 
notice that we have starred (*) some of these tasks. This 
designates the tasks with which everyone using RCL should be 
familiar, whether they are writing simple or complex robot tasks. 
The other, unstarred entries are tasks that will be used by more 
experienced users of RCL. 


We use some of the starred entries in the "Sample Robot Task" 
later in this Tutorial. 
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Prompt 


There are times when you are working in RCL that the system 
prompts you. This is a common programming term meaning that a 
message appears on the screen asking you for more information or 
instructing you on what to do next. 


The RCL prompt you probably see most often is: 

What would you like me to do now? 
as the system awaits your next set of instructions. 
Menus 


While you are working in RCL, you will notice that the system 
periodically displays lists of options, like a restaurant menu, 
from which you choose items for the system to accomplish. For 
example, if you use the Savvy SUMMON command, the system displays 
a menu and gives you several choices: you can either backup your 
diskettes, configure the system for your individual computer 
setup, or run diagnostics. You also have the choice of returning 
to the "What would you like me to do now?" prompt. 


Section B, "Getting Started," contains several examples of RCL 
menus. 


R(folacement Symbols 

e, 

Yeu will notice as you look through the list of primary tasks 
that gome of them contain angle brackets (< >) enclosing numbers. 
The -umbers designate replacement symbols, characters that 
Stance for information that you must supply. 


For xample, in the task "DEFINE A VARIABLE called «1»", the 

num er 1 is the replacement symbol. You must supply the name of 
the variable -- for example, DEFINE A VARIABLE called "A", Note 
t! t when you supply the answer in place of the replacement 

s nbol, unless the answer is a number (value) or unless it is a 
sponse to the direction prompt in the commands for the RB arm 
(OPEN, OUT, etc.), it must be enclosed in quotation marks. You 
type the first set of quotations (") and when you press «RETURN», 
Savvy supplies the ending quotation marks. 


Loops 
Another concept you must understand is loops. ІЁ you have done 
any programming, you should recognize this term. Even if you 


haven't, you may have heard it and have a vague idea of what it 
means. 
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In its most fundamental sense, a loop is a procedure that a 
computer program -- Or, in this case, a robot task -- repeats 
over and over again until it meets some condition or set of 
circumstances, allowing the program to stop the repetition. In 
other words, a loop within a robot task instructs your RB5X to 
repeat a procedure over and-over again until some condition is 
met that allows it to stop. And if you don't designate this 
condition, your RB5X repeats and repeats until you switch it off. 
Our "Sample Robot Task" later in this Tutorial includes several 
loops and illustrates this concept. 


In RCL, there are three kinds of loops: limited loops, counted 
loops, and general loops. 


The limited loop is identified in RCL as the "BEGIN A LIMITED 
LOOP" task, and is ended with the command "REPEAT THE LIMITED 
LOOP until «1» is (<,> = <>) «2» to <3>." In a limited loop 
(which Tiny BASIC programmers will recognize as a DO/UNTIL loop), 
the robot task repeats the same procedure over and over again 
until it encounters a condition that allows it to leave the loop. 
This condition is defined by the "REPEAT THE LIMITED LOOP" 
command. 


In a counted loop (which Tiny BASIC programmers will recognize as 
a FOR/NEXT loop), the robot task repeats a procedure for a 
specified number of times. The task "BEGIN A COUNTED LOOP" 
instructs the robot task to start this procedure and begin 
counting the times it is repeated. For this task, your computer 
system prompts you for the name of the loop, where it begins, and 
where it ends. So the task reads "BEGIN A COUNTED LOOP called 
«1» beginning at «2» ending at «3»". Remember that 1, 2, and 3 
are replacement symbols for information you must supply. The 
number 1 represents a variable name that will be used in Tiny 
BASIC, so it must be a single letter enclosed in quotation marks. 
The numbers 2 and 3 designate variable values that RCL counts 
from the first value to the second, one number at a time. For 
example, the loop that begins with "BEGIN A COUNTED LOOP called 
"P" beginning at 1 and ending at 5" and is closed with "REPEAT 
THIS COUNTED LOOP for the counter "p"" will be executed five 
times. n 


General (unconditional) loops (which Tiny BASIC programmers will 
recognize as a GOTO construction) will repeat from "BEGIN A LOOP" 
to "REPEAT THIS LOOP" until some condition within the loop causes 
the task to exit and proceed with the instructions that follow. 
The primary task "TEST IF the variable <l> is (-5,4,5»,4») «2» 
compared to «3»" and the primary tasks that begin with EXIT are 
most often used to set up a condition within the loop. 
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SAVVY DEFINITIONS 


Since RCL is a subset of Savvy, you occasionally need to use some 
commands that are basic Savvy functions and are not really 
additional features of RCL. We have listed some of these 
commands -- called primaries -- here, but you should examine your 
Savvy manual for details on using the Savvy primaries. 
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ASSOCIATE 


This command: enables you to teach RCL your language. 
Specifically, you can tell it to "associate" one phrase with 
another. For example, using this task, you can teach RCL to 
think of the two tasks "CLEAN THE CARPET" and "VACUUM THE 
FLOOR" as meaning exactly the same thing. 


DEFINE 


This is the command you use to create robot tasks in RCL. The 
"Sample Robot Task" beginning on page 21 begins with DEFINE. 


DETAIL 


This command allows the user to list the various components 
of a robot task. For example, if you look at the "BEGIN A 
LOOP" detail in Appendix 2, you see the four separate tasks 
that comprise "BEGIN A LOOP." 


EDIT 


This command allows you to change a robot task you already 
created using the DEFINE command. In using this command, you 
have access to several important functions, including L 
(which allows you to list the task you are editing), <#>--a 
line number (which enables you to automatically move the 
cursor to the line number specified), D (which deletes the 
line above your cursor), and Q (which allows you to leave, or 
quit the EDIT task and return to the mode where you can enter 
more robot tasks). The "Sample Robot Task" in Section C 
describes how to use these functions. 


FORGET 


This command cancels an association that you may have 
previously created using the ASSOCIATE command. For example, 
if you told the system to recognize "CLEAN THE CARPET" and 
"VACUUM THE FLOOR" as meaning the same thing, and later 
decide they should have two separate meanings, you would use 
this command. 
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RENAME 


This command allows the user to rename a task throughout the 
RCL system. This is most often used when customizing RCL to 
your particular needs. 


SUMMON 


The SUMMON command allcws you to display on the screen th 
EXPLANATION of STANDBY TASKS menu (RCL II) or the UTILITIES 
menu (RCL I). From these merus, you can choose to make 
backups of your diskettes, configure RCL to match your 
computer system, or run a diagnostic check of your system. 


SOME KEYBOARD PRELIMINARIES 


In general, your Apple keyboard is similar to the keyboard of a 
standard typewriter, with a few extra keys added that correspond 
to specific computer functions. 


Your Apple User's Manual contains detailed information about the 
operation of the computer itself, including the functions of the 
various keys. But it is important that you understand how RCL 
handles certain keys. 


RESET Key 


The RESET key interrupts the computer's CPU and leaves no way 
for you to return to what you were doing. As a rule, you 
should NEVER use the RESET key as it will cause irreparable 
damage to your RCL diskette or diskettes. 


RETURN Key 


Any time you type an instruction in RCL, you need to end it 
by pressing the RETURN key. This signals the system to look 
at what you have entered. In the sample program in this 
Tutorial, we use «RET» to renind you to press the RETURN key. 


Left-Pointing Arrow 

If you make a mistake while entering RCL instructions, use 
the left-pointing arrow to back up the cursor to the mistake. 
Then type your correction. Each time you press this key, the 
cursor backs up one character, erasing that character. 
Right-Pointing Arrow 

The right-pointing arrow acts as a "delete" key. When you 


press this key, you delete cvsrything you have typed since 
you last pressed the RETURN key. 
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Escape Key 


Use the Escape key, labeled ESC on the left side of your 
keyboard, to stop an operation. Pressing this key returns 
you to the "Finish, Resume, or Suspend?" prompt. Press the 
first letter of the choice you wish to make to continue from 
there. See your Savvy Personal Language Reference Folio for 
a detailed description of the "Finish, Resume, or Suspend?" 
function. 


Upper-Case Letters 


You should remember to type all of your RCL instructions in 
capital or upper-case letters. The system then responds or 
prompts you in all lower-case letters. (That is, unless you 
are working with an Apple II+ with a 40-column display. In 
this case, everything on the screen appears in upper-case 
letters.) The shift key does not work with Savvy; to shift 
between upper and lower case input press CTL and A at the 
same time. 
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B. GETTING STARTED 


One of the first things you should do when you open your RCL 
package is to configure the diskettes to your individual 
computer system and then make copies of the diskette or 
diskettes. 


In RCL I, the one-diskette system, the system software takes up 
about 50$ of the diskette space, leaving you only 50$ for your 
own program development. So it is a good idea to make several 
copies of your RCL I diskette and to use these copies for 
writing different RCL programs for your robot. 


With RCL II, the Savvy system software is contained on one 
diskette, leaving the second diskette for RCL commands and your 
program development. However, it is still a good idea to make 
copies of both the system diskette and the RCL diskette so that 
if your system ever malfunctions while your diskettes are in the 
drives, you can recreate the work you did up until the system 
failure. 


TO CONFIGURE RCL FOR YOUR SYSTEM 
RCL I 


To configure RCL I for your system: 


ls Make sure the Savvy circuit card is in Slot 7 inside 
your Apple and that the serial card is in Slot 1. 


aa Insert your RCL diskette, with its label up and the 
notch to the left, into the Apple disk drive and close 
the door. 

3. Switch the Apple on. 


4. At the "What would you like me to do now?" prompt, use 
the Savvy SUMMON command to display the UTILITIES menu. 


Type: 
SUMMON «RET» 

The system then prompts you with the message: 
the standby task 
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5. туре: 
"<RET> 
and the system displays the following menu: 
--UTILITIES MENU-- 
1. Make an exact copy of this diskette. 
2. Perform system DIAGNOSTICS. 
3. CONFIGURE for different hardware. 


4. ALL DONE WITH HELP...Go back to 'What 
would you like me to do now?' 


ENTER the NUMBER of the desired action: 


6. Choose the CONFIGURE option by pressing: 
3 
There is no need to press the RETURN key. 
The system then displays the following screen: 


WHICH CRT (MONITOR) WILL YOU BE USING? 
(ASTERISK SHOWS PRESENT CONFIGURATION) 


*1) 40-COLUMN NATIVE APPLE SCREEN 
WITHOUT LOWER-CASE. 


2) 40-COLUMN NATIVE APPLE SCREEN 
WITH LOWER CASE. 
(SPECIAL EQUIP. OR II-E REQ'D) 


3) 80-COLUMN VIDEX VIDEOTERM. 
(SPECIAL EQUIP. REQ'D) 


4) 80-COLUMN NATIVE APPLE SCREEN. 
(II-E REQ'D) 


ENTER THE NUMBER FOR DESIRED CRT: 
7. Press the number key that corresponds to your 


configuration. The system then displays the following 
menu: 
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WHICH PRINTER INTERFACE WOULD YOU LIKE? 
(ASTERISK SHOWS PRESENT CONFIGURATION) 


l) APPLE PARALLEL 
*2) APPLE SUPER SERIAL 
3) CCS 7728 PARALLEL 
4) CCS 7710 SERIAL 
5) NO PRINTER PRESENT 
ENTER THE NUMBER FOR DESIRED PRINTER. 
Remember that you won't actually be using a printer. RCL 
simply thinks of the RB5X as a printer. Press the number 
key that corresponds to your printer setup (either #2 or 


#4). The system then returns you to the "What would you 
like me to do now?" prompt. 


Once you have configured your diskette to match your system, you 
are ready to move on to the section, "Backing Up Your Diskettes." 


RCL II 


To configure RCL II for your system: 


2s 


2. 


6. 


Make sure the Savvy circuit card is in Slot 7 inside your 
Apple and that the serial card is in Slot 1. 


Insert the Savvy system diskette with its label up and 
the notch to the left into Disk Drive 1, and close the 
door. 


Insert your RCL II diskette with its label up and the 
notch to the left into Disk Drive 2, and close the door. 


Switch the Apple on. 
At the "What would you like me to do now?" prompt, use 
the Savvy SUMMON command to display the EXPLANATION of 
STANDBY TASKS menu. Type: 

SUMMON «RET»? 
The system prompts yo! with the message: 

the standby task 
Type: 

"<RET> - 
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and the system displays the following menu: 
EXPLANATION of STANDBY TASKS 

l. ARCHIVE is used to make copies of 
disks. It can also be used to do 
special disk related operations. 

2. CONFIGURATOR is used to tell SAVVY 
what hardware is in your system 
and to make clean data disks. 

3. DIAGNOSTICS is used to test the 
integrity of the data on your data 
disk. It can also clear the 'your 
disk may be in trouble' message. 


4. All done with UTILITIES...Go back to 
'What would you like me to do now?' 


ENTER the NUMBER of desired action: 
7. Choose the CONFIGURATOR option by pressing: 
2 
There is no need to press the RETURN key. 
8. The system then displays tha following menu: 
-- CONFIGURATOR MENU -- 
1) Make a CLEAN new DATA-DISK. 


2) Change the Hardware Configuration. 
(Monitors, Printers, Disk-Drives) 


3) Extend the length of the DATA-DISK. 
4) Shorten the length of the DATA-DISK. 


5) All done with the CONFIGURATOR...go back 
to 'What would you like to do now?' 


ENTER the NUMBER for the desired action: 
Choose the second option by pressing: 
2 


There is no need to press the RETURN key. 
The system then displays the following message: 


B-4 Copyright 1984 oe Corporation. All rights reserved. 


саф й, 


You may VIEW the CURRENT configuration 
of the hardware by responding with only 
a carriage RETURN to the questions. 
HOWEVER, if you make any configuration 
changes, I will automatically RESTART 
to make your change become effective. 
Press any key to continue. 


9. Press any key to continue. The system then displays the 
. following menu: 


Which CRT (Monitor) will you be using? 
(Asterisk shows present ccnfiguration.) 


1) 40 column native APPLE screen 
without lower-case 


*2) 40 column native APPLE screen 
with lower-case 
(Special equip. or II-e req'd.) 


3) 80 column VIDEX videoterm 
(Special equip. req'd.) 


4) 80 column native APPLE screen. 
(II-e req'd.) 


ENTER the NUMBER for desired CRT: 


10. Press the number key that corresponds to your system and 
the following menu appears: 


Which printer interface would you like? 
(Asterisk shows present configuration.) 


l) APPLE parallel 
*2) APPLE Super Serial 
3) CCS 7728 parallel 
4) CCS 7710 serial 
5) No printer present 
ENTER the NUMBER for dGecirecd PRINTER: 
ll. Remember that you won't actually be using a printer. RCL 
simply thinks of the RB5X és a printer. Press the nomber 
key that corresponds to your sy:tem (either #2 or $4) and 


the following menu appezrs: 
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What drive will you be using for DATA? 
(Asterisk shows present configuration) 


*1) Floppy diskettes 

2) Corvus hard-disk 
The MASTER-DISK you are now using is 
presently configured for a data-disk on 
Drive #2. 


ENTER NUMBER for desired data-drive: 


12. Press the number key that corresponds to your 
the following message appears: 


I always use diskette Drive #1 for the 
SAVVY MASTER diskette. 


How many of the REMAINING Drives shall 
I use for DATA storage (1-3)? 


13. Press the number key that corresponds to your 
the following message appears to confirm your 


For DATA I'll use Drive 4X. 
Press any key to continue. 


where the X stands for the number 1 through 3 
choose. 


System and 


system and 
choice: 


that you 


14. Press any key to continue and the following message 
appears, signaling you that configuration is complete. 


I will now RESTART to make these changes 


become effective immediately. 


If you changed your CRT configuration, the following 


message also appears: 


Reminder...you changed your videc. 
You may need to move a cable. 


The system then returns to the "What would you like me to do 


now?" prompt, and you may now move on to the section, 
Your Diskettes." 


"Backing Up 
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BACKING UP YOUR DISKETTES 

RCL I 

Once you finished configuring your diskette to match your 
computer system, your screen displays the "What would you like me 
to do now?" prompt. To make backups of your diskettes: 


l. Use the Savvy SUMMON command to display the UTILITIES menu 
again. Enter: 


SUMMON «RET»? 

The system then prompts you with the message: 

the standby task 
2. Type: 

" «RET» 

The system displays the UTILITIES menu: 

š --UTILITIES MENU-- 

1. Make an exact copy of this diskette. 


2. Perform system DIAGNOSTICS. 


"o d 


3. CONFIGURE for different hardware. 


4. ALL DONE WITH HELP...Go back to 'What would you 
like me to do now?' 


ENTER the NUMBER of the desired action: 


3. To choose the backup (or copy) option from this menu, 
press: 


1 

The system then displays the following message: 
This procedure allows you to make an 
exact copy of this ORIGINAL. You will 
need a spare diskette to continue. 
Do you still wunt to cory? 


4. Type: 
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10. 


ll. 


for yes and the system displays the following prompt: 
Insert NEW diskette into drive 
Press any key to continue. 


Remove your RCL diskette and place your spare diskette 
into the disk drive. Close the disk drive door. 


Press any key to begin the copying process. The system 
then displays the following message to Signal you that 
copying is taking place: 


WORKING! 

The next message you see is: 
Insert ORIGINAL diskette into drive. 
Press any key to continue. 


Remove your new diskette and place the original into the 
drive. Close the disk drive door. The system then 
displays the "WORKING!" message. 


The system displays these last two messages several times 
before the copying process is complete. Continue to swap 
diskettes and press any key until you see the following 
message, which indicates that this process is complete: 


Good copy. 


The copying process is now complete. 
Insert the disk you want to use now. 
Press any key to continue. 


Insert your copy into the disk drive and press any key to 
return to the "What would you like me to do now?" prompt. 


To make additional copies, insert your original into the 
disk drive and repeat the procedure until you have several 
copies of your RCL diskette to work with. Keep the 
original in a safe place, using your copies to write robot 
tasks. 


At the prompt, you are ready to proceed to the section of 
the Tutorial titled "Sample Robot Task" and to bejin 
entering this task. 
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RCL II 

Once you have finished configuring your diskettes to match your 
computer system, your screen displays the "What would you like me 
to do now?" prompt. To make backups of your diskettes: 


1. Use the Savvy SUMMON command to display the EXPLANATION of 
STANDBY TASKS menu again. Enter: 


SUMMON <RET> 
The system then prompts ycu with the message: 
the standby task 
2. Type: 
" «RET» 
and the system displays the following menu: 
EXPLANATION of STA::D3Y TASKS 
1. ARCHIVE is used to make copies of 
disks. It can also be used to do 
special disk related operations. 
2. CONFIGURATOR is used to tell SAVVY 
what hardware is in your system 
and to make clean data disks. 
3. DIAGNOSTICS is used to test the 
integrity of the data on your data 
disk. It can also clearn the 'your 


disk may be in trouble' message. 


4. All done with UTILITIES...Go back to 
'What would you like me to do now?" 


ENTER the NUMBER of desired action: 
3. eons option 1 by pressing: 
1 
There is no need to press the RETURN key. 


- 


The system then displays the folicwinjg menu: 
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== ARCHIVE MENU == 
1) Copy diskettes. 
2) Show the diskette drive numbers. 
3) Copy between hard-disk and diskettes. 


4) Use the SPECIAL disk utilities and 
diagnostic routines. 


5) All done with ARCHIVE...Go back to 
'What would you like me to do now?' 


ENTER the NUMBER of desired action: 
4. Again, choose option 1l by pressing: 
1 
There is no need to press the RETURN key. 
The system then displays the following screen: 
COPY DISKETTES 
This procedure allows you to copy data 
from one diskette, called the ORIGINAL, 
to another one, called the DUPLICATE. 
Press ESCAPE (ESC) key to start over. 
Do you need more instructions? 
5. Answer this question by pressing: 


Y 


for YES and then follow the instructions as they are 
presented on the screen. 


It usually takes about 90 seconds for the system to copy a 
diskette. As the copy is being made, the system also 
verifies the copy. If a copy cannot be verified, a 
message displays so that you can try again. When a 
successful copy is made, the screen displays the message: 


Good copy 


Press any key when ready to continue. 
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6. After you press another key, you see the message: 


REMOVE your new copy from Drive #1 then 
RESTORE diskettes to original drives. 


Press any key when ready to continue. 
In fact, you should use your new copies and preserve your 
original Savvy diskette and your original RCL diskette. So 
once you have placed your Savvy duplicate in Disk Drive 1 
and your RCL duplicate in Disk Drive 2, press any key to 
continue. The system then displays the ARCHIVE menu. 


1. Select option 5 from the ARCHIVE menu to return to the 
'What would you like me to do now?' prompt. Press: 


5 
There is no need to press the RETURN key. 


You are now ready to move on to the next section, "Sample Robot 
Task." 


Copyright 1984 ` Corporation. All rights reserved. В-11 


* 


C. SAMPLE ROBOT TASK 


Now that we have discussed the basics of RCL, let us step 
through a sample robot task. 


For this demonstration, we will assume that you have RCL I and 
an RB5X with the voice/sound synthesis option. 


SCENARIO 


Assume you have invited friends to your home to enjoy snacks 
and conversation. As an added treat, you want your RB5X to 
greet each guest on arrival. As each one enters, you press 
a bumper on the robot, RB5X begins flashing its lights and 
rolls over to your friend, stops and introduces itself 
saying, "Hello, I am RB5X: the Intelligent Robot." 


Before we actually write this robot task, you should consider 
the various elements that comprise it: specifically, movement, 
bumpers sensors, flashing lights, sonar, and voice. The robot 
task is then broken down into smaller tasks controlling these 
various elements. 


A handy way to organize your approach to this scenario is to use 
the following format for laying out the logic or sequence of 
your robot task: 


——— 
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NOW, 


Building Blocks Programming 


The robot is programmed to 
respond to your pressing 
ene of its bumper sensors 
by flashing its lights, 
moving, and using its sonar. 


Bumper sensor 


At the touch signal from 
you, the robot begins 
to flash its lights. 


Flashing lights 


At the same time, RB5X 
begins to move toward your 
friend. 


Movement 


RB5X is programmed to stop 
moving as soon as it senses 
someone with its sonar Or 
touches them with its 
bumper. 


Sonar Sensor 
Bumper Sensor 


The robot greets your guest 
with the phrase, "Hello, I 
am RB5X: The Intelligent 
Robot" as soon as it stops 
moving. 


voice synthesis 


let's begin to compose our first robot task. 


Before your friends arrive: 


l. 


ds 


C2 


Make sure the Savvy circuit card is in Slot 7 inside your 
Apple and that the serial card is in Slot l. 


Make sure the voice card is in Slot J1 or J2 inside the 
robot. 


Insert the RCL diskette, with its label up and the notch to 
the left, into the Apple disk drive and close the door. 


Switch the Apple on. 


When the "What would you like me to do now?" prompt appears, 
type: 


DEFINE<RET> 
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EID 


10. 


11. 


The next CRT display should be: 

DEFINE a task called 
Let's call this robot task PARTY. So type: 

PARTY<RET> 
NOTE: If at any time what you expect to appear on the screen 
does not appear, press the ESCAPE key to return to the 
"Finish, Resume, or Suspend?" prompt. If you then press F 
(for Finish), you can return to the "What would you like me 
to do now?" prompt and begin again. 


The next display should be: 


O--Task PARTY 
1 Does 


where line 0 gives the task title and line 1 is the beginning 
of what the robot task does. RCL automatically numbers the 
lines of your robot task. 


The first thing you must do is prepare the robot's hardware 
to begin accepting commmands. You need to do this any time 
you want to write and then download programs from your 
computer to the RB5X. Type: 


PREPARE THE ROBOT<RET> 


Next you must let the voice hardware know that it too must be 
ready to accept commands. Type: 


PREPARE THE VOICE<RET> 


Next, you must load the ccmzand that instructs the robot to 
introduce itself to your guests. Type: 


X LOAD THE INTRODUCTION «RET» 


The X before this task indicates that it is a sample task 
that comes on your RCL diskette; you must include the X. 


Line 4 contains the title of your task and must be included 
so that when the RB5X reaches the end of the task, the robot 
will have a point of reference for returning to the start and 
repeating the greeting again. Type: 

CALL «RET» 
The system answers with: 


this robot task line 
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Name this line by typing: 
"BEGINNING OF PARTY<RET> 


Don't forget the first pair of quotation marks. RCL enters 
the second set for you after you press the RETURN key. 


12. Line 5 marks the beginning of the first loop in your robot 
task. With this general loop, you Say to the robot, "You sit 
| and wait patiently until I give you the signal to begin your 
greeting." Type: 


BEGIN A LOOP <RET> 


13. Once you've instructed RB5X to begin a loop, you must also 
tell the robot how to leave (or exit) the loop. In this 
case, you want RB5X to sit and wait patiently until you press 
a bumper. So, type: 


EXIT IF ANY BUMPER TOUCHED<RET> 


14. A general loop really consists of three tasks: one that tells 
it when to start (BEGIN A LOOP), one that tells it what to do 
within that loop or how to get out of the loop (EXIT IF ANY 
BUMPER TOUCHED), and one that closes the loop and tells it tb 
repeat the procedure. To program this last task, type: 


REPEAT THIS LOOP<RET> 


15. Now, when you touch any bumper on the robot, you want it to 
begin flashing its lights and to roll up to your guest, using 
its sonar and bumpers to tell when it has reached your 
friend. So now type: 


TURN ON THE FLASHING LIGHTS <RET> 
MOVE FORWARD<RET> 


16. Here's a good place for another general loop. You want the 
robot to continue moving forward until either it senses 
something with its sonar ог until it touches something with a 
bumper. So, type: 


BEGIN A LOOP<RET> 
17. This loop has two tasks in it telling it when to stop. Type: 


EXIT IF ANY BUMPER TOUCHED<RET> 
EXIT IF SONAR<RET> 


18. After you press the last RETURN, the system prompts you for 
the sonar distance you wish: 


distance value is less than 


+ 
هر - 
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19. 


204 


21. 


22. 


23. 


This indicates at what distance the sonar is programmed to 
detect obstacles in the robot's path. In this case, you want 
the robot to stop just less than a foot from your guests, so 


type: 

95<RET> 
(The value 95 is the minimum distance read by the sonar, and 
is just less than a foot. For further understanding of sonar 
values, see the section on "Sonar Machine Code Algorithm" in 
Chapter D on "Software" in the RB5X Reference Manual.) 
Once again, close the loop by typing: 

REPEAT THIS LOOP«RET» 


When either a bumper is touched or the robot's sonar detects 
an object, you want the robot to stop. Туре: 


STOP ALL MOTION<RET> 
After it stops, you want RB5X to introduce itself. Type: 
SPEAK<RET> 
The system then prompts with the message: 
the phrase called: 
Enter: 
"SAY THE INTRODUCTION<RET> 
This is the phrase you loaded earlier in your robot task with 
the X LOAD THE INTRODUCTION command. Don't forget the first 
set of quotation marks. RCL enters the second set for you. 
Once it has spoken its piece, RB5X should return to its 
Starting point to await another guest. So tell RB5X to turn 
around by entering: 
SPIN CLOCKWISE<RET> 
The system then prompts you with: 


this many degrees: 


Since you want the robot to turn er^cnd ал71 return to the 
Start, type: 


180<RET> 
MOVE FORWARD<RET> 
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26. 


21. 


28. 


29. 


30. 
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RBSX should move forward until you press a bumper, SO a loop 
would be useful here. Type: 


BEGIN A LOOP<RET> 


The robot should continue to move forward until you instruct 
it to stop, by pressing one of its bumpers. Type: 


EXIT IF ANY BUMPER TOUCHED<RET> 
Don't forget to close the loop: 
REPEAT THIS LOOP<RET> 


Once RB5X has returned to the starting point, you neéd to 
have it facing front again, SO type: 


SPIN CLOCKWISE<RET> 
At the prompt 
this many degrees: 
type: 
180<RET> 
To have the RB5X turn off its lights, type: 
TURN OFF THE FLASHING LIGHTS <КЕТ> 
You now want the robot to sit and wait until the next guest 
arrives. So, to return to the beginning of the entire 
program, type: 
JUMP <RET> 
At the prompt 
to the line called 
type: 
"BEGINNING OF PARTY<RET> 


Don't forget to type the first set of quotation marks. RCL 
adds the second. 


To redisplay the entire task on the screen, type: 


L«RzI? 
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31. 


32. 


33. 


The 


34. 


35. 


This displays on your screen tke RCL robot task listing you 

see in Appendix 1. (To list only part of the task type the 

number of the last line you want to see, for example, to list 

lines 1-15, type 15<RET>.) 

To signal the end of this robot task, type: 
Q<RET> 

This stands for Quit. The system displays: 
END (Task is 15$ full.) 


Once you have ended the task, your screen displays the "What 
would you like me to do next?" prompt. 


To load this robot task into the RB5X, switch your robot on 
(this means the top of the ON/OFF switch is pushed in) and 


connect the RS-232 cable to the port on the serial 
communications card in your Apple and Port 1 on the robot. 


Type: 

BUILD AND LOAD«RET» 
System displays 

***Build and Load an RB5X robot task***, 
At the prompt: 

Please enter the name of the robot task: 
type: 

PARTY«RET» 
The system responds with 

Would you like the task checked for errors? (Y/N) 
Type: Y or N and «RET» 


If you type Y, the system taxes a short time to check your 
program for errors then displays: 


Now building robot tz:* PARTY... One moment, please. 


Note that the process of Luilding and loading the task may 
take several minutes. Ycu mey also use BUILD and LOAD as 
Separate commands; when EFUILD is used alone you must enclose 
the name of the robot task that follows the command (e.g., 


PARTY) in quotation marks 
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The BUILD command begins the process of translating RCL 
commands into the Tiny BASIC code RB5X understands. 


Only one robot task can be translated at a time, and only one 
robot task at a time remains in the Tiny BASIC code form on 
your RCL diskette. 


For example, you just built the robot task PARTY; it now 
exists in Tiny BASIC code form on your RCL diskette. If you 
create another robot task, DANCE, you must build DANCE before 
you can download it to RB5X, but if you want to reload the 
robot task PARTY, you do not have to build it again. 
Therefore, you must build every rObot task before you load it 
into your robot, unless it is the task you last built when 
you last used RCL. 


When the system finishes building the task, the system 
displays the message: 


Ready to load into the RB5X. Press any key to continue. 
After you press a key, the System displays: 
***Now loading ... One moment, please*** 


It also displays a status line indicating the loading of 
sonar, voice, and the robot task. 


When the computer finishes loading this task into your RB5X, 
the "What would you like me to do now?" prompt again 
displays. 


Disconnect the robot from the RS-232 cable, position it where 
you want it to wait for your guests, and press any bumper for 
it to begin its greeting. 


So now you have a complete robot task in RCL. But suppose 
you want to change your task? RCL allows you to add, change, 
or delete lines in your robot tasks using the Savvy EDIT 
command mode. 


Suppose you want your robot to honk its horn as it begins to 
approach each of your guests. To have RBSX do this, you need 
to add a horn-honking command to your robot task, PARTY. 


Since you just loaded PARTY into your robot, your Screen now 
displays the "What would you like me to do now?" prompt. 


Type: 
EDIT<RET> 

to go into the Savvy edit mode, and at the prompt: 
the 
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42. 


43. 


Type: 
PARTY<RET> 
Your screen now displays: 


0 --- Task PARTY 
1 Does 


which is the beginning of the task listing for PARTY. 
Type: 

L<RET> 
to list the primary tasks that make up this robot task. 
Looking down the list of primary tasks, you see that line 9, 
which contains the primary task, MOVE FORWARD, is the line 
where RB5X begins to move toward your guest. It is after 


this line that you want to add a command that makes the robot 
honk its horn. 


Type: 

9<RET> 
Your cursor moves to line 10, and your screen displays the 
text of lines 0 through 9. You can use this procedure to 
move to any line in your robot task when you are in the Savvy 
edit mode. 
To add the horn-honking command, type: 

HONK<RET> 
RCL prompts you with: 

the horn for this many seconds. 
Type: 

3<RET> 
You have now added the horn sound to your robot's approach. 


To view your new robot task PARTY, type: 


L<RET> 
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Now type: 
Q<RET> 


to exit the edit mode and return to the "What would you like 
me to do now?" prompt. 

Now you can load the new task into your RB5X and run it using 
the procedures beginning with step 32. Switch RB5X off, then 
on again or press the software reset button on the interface 
panel before you BUILD AND LOAD to clear the previous PARTY 
robot task from its memory. 


You also use the Savvy edit command mode to delete or change 
robot task lines as follows: 


When the system displays the "What do you want me to do now?" 
prompt, type: 


EDIT<RET> 
At the prompt: 
the 
type: 
PARTY<RET> 
You are now again in the Savvy edit mode. Type: 
L<RET> 
to list your robot task. 


Let's delete line 10, the HONK command we previously 
inserted. Type: 


10<RET> 
to move the cursor to line 10. 
Type: 

D<RET> 
to delete the line. 


To change a robot task line, you follow the above procedure 
for deleting the line, then type in the new line and <FET>. 
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51. To delete an entire robot task, you must delete each of its 
lines separately. The task name, however, exists on your RCL 
diskette even after you delete all the task lines. Because 
you cannot completely remove old tasks from the RCL diskette, 
we encourage you to reuse old task names or to rename them 
using the Savvy RENAME command. 


52. RENAME is used following the "What do you want me to do now?" 
prompt. Type: 


RENAME «RET» 
at the prompt: 
old name 
type the name of the robot task you want to change and «RET». 
53, At the prompt: 
to new name 


type the new name of the robot task and «RET». 


To better illustrate the difference between what you wrote in RCL 
and what RCL told RB5X, we have included in Appendix 1 a copy of 
the "Party" robot task and the Tiny BASIC translation. As you 
can see, the RCL text is just 24 lines long -- the Tiny BASIC 
text stretches to 115 lines of complicated computer code that 
only machines like RB5X should be forced to learn! 


We have also included the detail (which we got by using the Savvy 
task DETAIL) for each of the primary tasks used to compose the 
robot task we just wrote. These tasks are listed alphabetically 
in Appendix 2. 


You are now ready to design your own robot tasks for your RB5X. 
Use the sample scenario form in Appendix 4 to outline the 
building blocks for your own scenarios and plans. 


TO start composing own your robot task, follow steps 1 through 8 
of the Sample Robot Task using your new scenario data. 
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PARTY (a Task) 


Does PREFARE THE ROBOT 

and FREFARE THE VOICE 

and X LOAD THE INTRODUCTION 

and CALL this robot task line "BEGINNING OF PARTY" 
and BEGIN ñ LOOF 

and EXIT IF ANY BUMFER TOUCHED 

and REFEAT THIS LOOF 

and TURN ON THE FLASHING LIGHTS 

and MOVE FORWARD 

10 and BEGIN A LOOF 

11 and EXIT IF ANY BUMFER TOUCHED 
12 and EXIT IF SONAR distance value is less than 95 
13 and REFEAT THIS LOOP 
14 and STOF ALL MOTION 
15 and SFEAK the phrase called: "SAY THE INTRODUCTION" 
16 and SFIN CLOCKWISE this many degrees: 180 

17 and MOVE FORWARD 

18 and BEGIN A LOOP 

19 and EXIT IF ANY BUMPER TOUCHED 
20 and REFEAT THIS LOOP 

21 and SFIN CLOCKWISE this many degrees: 180 
22 and TURN OFF THE FLASHING LIGHTS 
23 and JUMP to the line called “BEGINNING OF PARTY” 
24 and END (Task is 15% full.) 
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APPENDIX 1 


RCL Robot Task "PARTY" and its Tiny BASIC Translation 


Stmt 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
ER 
140 
150 
160 
170 
180 
190 
200 
210 
250 
240 
250 
260 
270 
280 
290 
210 
32 
zzo 
340 
250 
360 
370 
380 
390 
400 
410 
420 
30 
440 
So 
460 
470 
480 
490 


zoo 


ei7Bgoz-498 


BsTBOOB-447:S5-TOF:A-20 
REM RESX say the introduction 


F=#1B: GOSUB 
F-23402: GOSUE 
Fz400: GOSUB 
F=#18: GOSUB 
P=#25:GOSUB 
F=#27: GOSUB 
Fz415:60SUE 
Fz400: GOSUE 
Fz409: GOSUB 
F=#29: GOSUB 
F=#.3E: GOSUE 
F=# 3E: GOSUE 
F=#2F : GOSUE 
F=#00: GOSUE 
F=#0C: GOSUB 
P-428: GOSUE 
F=#32: GOSUE 
F=#1S:GOSUE 
F=#Z1:GOSUB 
F=#2A: GOSUR 
Р=#0Е : GOSUE 
F=#2C:GOSUE 
Р=#21: БОБОВ 
F=#29:; GOSUB 
Р=#10: Б050Е 
F=#15: GOSUR 
Р=#00: GOSUB 
P=#29: GOSUE 
F=#0OF : GOSUB 
F=# ZE: GOSUR 
F=#02: GOSUB 
Р=#01: GOSUE 
Р=#19: GOSUB 
F=#02: GOSUE 
F=#1F :GOSUE 
F=#0P: GOSUE 
F=#0D: GOSUB 
Р=#2А: Б050Е 
Р=#02: GOSUB 
Р=#00: GOSUB 
F=#18: GOSUB 
Р=#0Е: GOSUB 
F=#09: GOSUB 
F-41E: GOSUB 
Р=#1А: GOSUE 
F=#02: GOSUE 
F=#00: GOSUB 


Tiny BASIC Text 


1500 
2500 
2500 


3500 


5500 
3500 
3900 
3500 
=500 
3500 
5500 
3500 
25009 
2500 
3500 
3500 
2500 
2500 
2500 
2500 
2500 
2500 
2900 
3500 
3500 
3500 
2500 
2500 
200 
3500 
2500 
2500 
2500 
3500 
3500 
3500 
3500 
3500 
3500 
2500 
2500 
3500 
3500 
2500 
3500 
2500 
2500 


Meaning of Text 


INITIALIZE I/O 
FREFARE THE VOICE 
REMARK 


VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
VOICE 
vor 


за... - 


SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUT INE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUT INE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUT INE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUT INE 
SUBROUTINE 
SUBROUT INE 
SUBROUT INE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
SUBROUTINE 
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APPENDIX 2 


Primary Tasks Used to Compose Robot Task "PARTY" 


PRIMARY TASKS USED TO COMPOSE ROBOT TASK "PARTY" 


BEGIN A LOOF (a Task) 
7 COMPILE the BASIC statement "REM START A LOOF" which means "BEGIN А ' 


1 Does 
ОР" 
2 апа COPY from "BEGIN" to STRUCTURE ТҮРЕ 
3 and SAVE new page in LOOFS 
4 and SAVE new page in STRUCTURES 
= and END (Task is 5% full.) 


BUILD AND LOAD (a Task) 


1 Does CLEAF the page 

2 and OUTFUT from "¥¥¥ Build and lcad an КЕЄХ robot task 44%" using fermat | 
AULT 

3 and CARRIAGE return 

4 and CARRIAGE return 

5 and OUTFUT from "Please enter the name of the robot task: “ using format . 
FAULT 
` 6 and INFUT into HERE E 

7 and BUILD a program from the robot task HERE 

8 and CLEAR the page 

9 and OUTPUT from "t$ Build completed, now loading into the REZX £t" using fc 
mat DEFAULT 

10 and LOAD 

11 and END (Task is 16% full.) 


CALL this robot task line «1» (a Function) 


Does FASTE the "КЕМ LABEL THIS LINE " in front of <1> 

and Z COMPILE the BASIC statement FRONT which means "LABEL THE LINE" 
and PASTE the "L" in front of <1> 

and COFY from FRONT to STRUCTURE TYFE 

and SAVE new page in LOOFS 

“and END (Task is 6% full.) 


0€ Ul 5 0 t3 eR 


EXIT IF ANY BUMFER TOUCHED (a Task) 
1 Does 7 COMFILE the BASIC statement "Y-647800" which means "TEST FOR BUMFER 
NTACT" 
2 and Z COMFILE the BASIC statement "IF Y<255 GOTO EXIT" which means "EXIT TF 
ANY CONTACT" 
and COPY from "EXIT" to STRUCTURE TYFE 
and SAVE new page in LOOFS 
and SAVE new page in STRUCTURES 
and END (Task is 10% full.) 


OULU 


EXIT IF 


Does 
and 
and 
and 
and 
and 


. and 
and 
and 
and 
and 


OGON тьш 


مو > 


JUMP to 


Does 
and 
and 
and 
and 
and 


CU PUN = 


SONAR distance value is less than <1> (a Function) 


Z COMFILE the BASIC statement 
z COMFILE the BASIC statement 
SFLIT the number < t> 

PASTE the "IF D<" in front of 
PASTE the FRONT in £ront of " 
z COMFILE the BASIC statement 


COPY from "EXIT" to STRUCTURE 
SAVE new page in LOOFS 

COPY from YES to SONAR NEEDED 
SAVE new расе in STRUCTURES 
END (Task is 14% full.) 


"DzO" which means "ZERO DISTANCE" 
"LINK #1800" which means "CALL SONAR" 


INTEGER 
GOTO EXIT” 
FRONT which means “EXIT IF LESS THAN VALU 


TYPE 


the line called «1» (a Function) 


PASTE the "JUMP TO LABEL " in 
z COMPILE the BASIC statement 
PASTE the "J" in front of «1»? 


front of <1> 
“GOTO GOES HERE" which means FRONT 


COPY from FRONT to STRUCTURE TYPE 


SAVE new page in LOOPS 
END (Task is 6% full.) 


MOVE FORWARD (a Task) 


1 Does Z COMFILE the BASIC statement "Q47802-409" which means "GO FORWARD" 


2 and 


PREFARE 


1 Does 
2 and 


PREPARE 


1 Does 
E VOICE" 
2 and 
3 and 


END (Task is 3% full.) 


THE ROBOT (a Task) 


z COMPILE the BASIC statement 
END (Task is 3% full.) 


THE VOICE (a Task) 


Z COMPILE the BASIC statement 


"@#7803=#98" which means “INITIALIZE 1/0" 


“@#780B=#A7: S- TOP" which means "FREPARE TF 


COPY from "YES" to VOICE NEEDED 


END (Task is 5* full.) 


REPEAT THIS LOOP (a Task) 


Does 
and 
and 
and 
and 
and 
and 
and 
and 
and 
and 


~OVONGC UW AUN 
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COPY from STATEMENT NUMEER to HERE 


Z GET PREVIOUS BEGIN 


DELETE the page indexed by STATEMENT NUMBER from folder LOOTS 


PASTE the "GOTO " in front cf 


STATEMENT NUMBER 


COPY from HERE to STATEMENT NUMBER 
z COMPILE the BASIC statement FRONT which means "REPEAT THIS LOOP” 
Z COMFILE the BASIC statement “REM EXIT TO HERE" which means E" 


Z PATCH UP EXIT STATEMENTS 


COPY 4rom "REFEAT" to STRUCTURE TYFE 


SAVE new page in STRUCTURES 
END (Task is 10% full.) 


SPEAK the phrase called: <1> (a Function) 


Does BEGIN at page indexed by FIRST in folder SFEECH LOAD DATA 

and GET the page indexed by <1> in folder SPEECH LOAD DATA F. 
and COPY from SFEECH ADDRESS to HERE ; 
and PASTE the "Sz" in front of HERE 

and PASTE the FRONT in front of ":LINK #2F50" 

and PASTE the FRONT in front of ": КЕМ SPEAK" 

and PASTE the FRONT in front of <1> 

and Z COMPILE the BASIC statement FRONT which means "SPEAK A PHRASE" 


and END (Task is 9% full.) 


O0 O N O Ol h (I N = 


SPIN. CLOCKWISE this many degrees: <1> (a Function) 


Does IF the <1> IS GREATER THAN О then 


1 
2 Do MULTIFLY the <1> by .01472 
3 and SFLIT the number PRODUCT 
4 and TAKE this many characters 4 from FRACTION 
S and PASTE the INTEGER in front of FRONT 
6 and GO CLOCKWISE 
7 and WAIT this many seconds FRONT 
B and STOF ALL MOTION 
9 and END of test 
10 and END (Task is SX full.) 


STOF ALL MOTION (a Task) 


1 Does Z COMPILE the BASIC statement "@#7802=0" which means "STOP ALL MOTION 
2 and END (Task is 3% full.) 


TURN OFF THE FLASHING LIGHTS (a Task) 


1 Does Z COMPILE the BASIC statement "X-4BF" which means "TURN OFF FLASHING 1 


HTS" 
2 and Z COMPILE the BASIC statement “GOSUB 3120" which means " GO TURN OFF A 


Ey" 
3 and Z INSURE PORT 7801 SUBROUTINE IS 
4 and END (Task is 7% full.) 


TURN ON THE FLASHING LIGHTS (a Task) 


1 Does Z COMPILE the BASIC statement "X-840" which means "TURN ON FLASHING L (í 
Ts" 

2 and Z COMFILE the BASIC statement “GOSUB X100" which means " GO TURN ON A I 
Y” 

3 and Z INSURE FORT 7801 SUBROUTINE IS 

4 and END (Task is 7% full.) 


X LOAD THE INTRODUCTION (a Task) 


1 Does REMARK that: “RBSX say tiie introcuction - new voice carcs only!" 

2 and LOAD THE PHRASE called: “SAY THE INTRODUCTION" with phonrem is: "H.EH1.ERH: 
.L.01.U1.A5H1.EHS. 15. Y. PA1. PA1. AE1. EHZ. M. THY. UH). AH1.UH2.ER.B.E£1.AY.Y.F.AH1.EHS. \ 
.V.PA1.EHI.EH2.K.PAO.S.I1.N. T. EHI.EHS.L.11.I2.D. J. EHI. EHS.N. T. RB.O1.U1.B.AH1.U* .. 
T. STOP." à 

5 and END (Task is 25% fu11.) 


APPENDIX 3 


Provided RCL Tasks 


TASKS 
Name (Status) 


ASSIGN A MOTOR CODE 
*BEGIN A COUNTED LOOP called <1> beginning at <2> ending at 43»? 
*BEGIN A LIMITED LOOP 
*BEGIN A LOOP 
*BUILD a program from the robot task <1> 
*BUILD AND LOAD 
*CALCULATE variable <1> = <2> (+,-,%,/) <3> <a> 
*CALL this robot task line <1? 

CLEAR ALL ITEMS 
*DEFINE A VARIABLE called <1> 

END HERE 

END OF FROGRAM 
*EXIT IF ANY BUMPER TOUCHED 
*EXIT IF FRONT+REAR BUMPER FRESS 
*ExIT IF SONAR distance value is less than <1> 
«EXIT IF THE BATTERY IS LOW 
«EXIT IF THE CHARGER IS TOUCHED 
«EXIT IF THE TAPE IS SENSED 
«EXIT IF THIS BUMFER is touched <1> 
xEXIT THIS LOOP 
«FOLLOW TAFE 
x60 CLOCKWISE 
*GO COUNTERCLOCKWISE 
*HONK the horn for this many seconds <1> 

INITIALIZE MEMORY 

INITIALIZE VARIABLES 
*JUMP to the line called <1> 
*LIGHTS ROUTINE 
- *LIST THE PROGRAM 
*LOAD 
*LOAD THE FHRASE called: <1> with phonemes: <2> 
*MAINTAIN CHARGE 

MOVE BACKWARD 
*MOVE DISTANCE BACKWARD for this many feet: <1> 
*MOVE DISTANCE FORWARD for this many feet: <1> 
*MOVE FORWARD 
*MOVE FORWARD TIL TAPE NOT SENSED 
*MOVE RANDOMLY 


*MOVE THE ARM FROM SHOULDER (UP, DOWN. IN, OUT): <1> for this many degrees «2» 


*MOVE THE FOREARM (IN,OUTO: <1> for this many degrees «2» 
*MOVE THE HAND (OFEN, CLOSE): <1> for this (1-100) 7: <2> 
*MOVE TIMED BACKWARD for this many seconds <1> 
*MOVE TIMED FORWARD for this many seconds <1? 

*MOVE WITH BETA INTELLIGENCE 

‘OTHERWISE DO 

*PICK A RANDOM DIRECTION 
*PIVOT ON LEFT CLOCKWISE 
*PIVOT ON LEFT COUNTERCLOCKWISE 

*PIVOT ON RIGHT CLOCKWISE 

*PIVOT ON RIGHT COUNTERCLOCKWISE 

*PREFARE THE ROBOT 

*PREFARE THE VOICE 

REMARK that: <1> 

*REPEAT THE LIMITED LOOP unless <1> is (<,>,=,<>) <2> to «32» 
*REPEAT THIS COUNTED LOOF for the counter <1> 

*REPEAT THIS LOOF 

REFORT ASSIGN ERROR 


TASKS 
Name (Status) 


REPORT DELETE ERROR 
REPORT GET ERROR (Undefined) 

REFORT LOAD ERROR 

REFORT MATH ERROR 

REFORT REFLACE ERROR 

REFORT SAVE ERROR 

* RUN 

*SET the variable <1> equal to <2> 

SHOW ERRORS 

SHOW THE PHONEME DICTIONARY 

*SPEAK the phrase called: <1> 

*SPIN AROUND CLOCKWISE this many times: «1» 
*SFIN AROUND COUNTERCLOCKWISE this many times: <1> 
*SFIN CLOCKWISE this many degrees: «1» 

*SFIN COUNTERCLOCKWISE this many degrees: <1> 
*SFIN LEFT 90 DEGREES ; 

*SPIN RIGHT 90 DEGREES 

STARTUP 

*STOF ALL MOTION 

*TEST IF the variable <1> is (=,<,>,<>) <2> compared to «3» 
*TURN OFF LED number <1> 

*TURN OFF THE FLASHING LIGHTS 

*TURN OFF THE HORN 

*TURN OFF THE INFRARED LED 

*TURN ON LED number <1> 

*TURN ON THE FLASHING LIGHTS 

*TURN ON THE HORN 

*TURN ON THE INFRARED LED 

*TURN THE WRIST (CW, CCW): <1> for this many degrees <2> 
*WAIT this many seconds <1> 

*WAIT RANDOMLY up to this many seconds «1» 
ALPHA 

АРНА W/SONAR 

BETA 

BETA W/SONAR 

BUMPER ACTIVATED MOTIONS 

CHARGER FINDER 

LOAD THE INTRODUCTION 

SIMPLE SIMON 

COMFILE the BASIC statement <1> which means <2> 
COMPUTE 2 TO THE N-1 , with N = <1> 

DELAY for this many loops: <1> 

DO CHECK if item <1> is in folder <2> 

DO NUMBER TEST on <1> 

EMPTY THE PROGRAM 

ERROR CHECK IF/UNTIL STATEMENT 

ERROR CHECK MATH FUNCTION 

ERROR CHECK STRUCTURES 

ERROR CHECK THE FOR STATEMENT 

ERROR CHECKING? 

FIND the label called <1> 

SET PREVIOUS BEGIN 

GET FREVIOUS IF OR ELSE 

INCLUDE at «1» the statement <2> which means «3» 
INCREMENT the «41» 

INCREMENT STAIEMENT NUMBER 

INITIALIZE LEGAL VARIABLES 


TASKS 
Name (Status) 


INSURE ARM PULSE SUBROUTINE IS 
INSURE BETA SUBROUTINE IS 
INSURE END OF PROGRAM IS THERE 
INSURE FORT 7801 SUBROUTINE IS 
INSURE RANDOM TURN SUBROUTINE 
INSURE RANDOM WAIT SUBROUTINE 
INSURE VOICE SUBROUTINE IS 
INSURE WAIT SUBROUTINE IS 

LOAD SONAR 

LOAD VOICE SUBROUTINE 

LOOK FOR BEGIN 

LOOK FOR MATCHING STATEMENT 
OUTFUT PAGE NUMBER 

OUTPUT PROGRAM HEADING 

PATCH UF END STATEMENTS 

PATCH UF EXIT STATEMENTS 

PATCH UP JUMP STATEMENTS 

SAVE FOLDER ERROR 

SAVE NUMBER OR FOLDER ERROR 
SAVE STRUCTURE ERROR missing the statement <1> to go with the statment <2> a 
statement number <3> 

ZZ AVAIL TASK 

ZZ AVAIL TASK #1 

ZZ AVAIL TASK #10 

ZZ AVAIL TASK #11 

ZZ AVAIL TASK #12 

ZZ AVAIL TASK #13 

ZZ AVAIL TASK #14 

ZZ AVAIL TASK #2 

ZZ AVAIL TASK #3 

ZZ AVAIL TASK #4 

ZZ AVAIL TASK #5 

ZZ AVAIL TASK #6 

ZZ AVAIL TASK #7 

ZZ AVAIL TASK #8 


N NN N N NNN NNN NNN NNN NAN ы 


APPENDIX 4 


Your Own Application 


YOUR OWN APPLICATION 


Now that your have used this Tutorial and have seen how to go about 
writing a robot task for your RB5x, we hope you will use the form 
below for creating your own robot tasks. 


Scenario 


Building Blocks Programming 


